From 117f99d04b39955840373685a5194927fcf73d82 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 29 Jan 2019 20:07:13 +0000 Subject: Add initial files --- app/Main.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 app/Main.hs (limited to 'app') diff --git a/app/Main.hs b/app/Main.hs new file mode 100644 index 0000000..22c0fba --- /dev/null +++ b/app/Main.hs @@ -0,0 +1,10 @@ +module Main where + +import qualified Data.ByteString as B +import qualified Data.Text as T +import PFM + +main :: IO () +main = do + s <- B.readFile "/home/yannherklotz/Imperial/AdvancedGraphics/coursework1/CO417-Assignment1/UrbanProbe/urbanEM_latlong.pfm" + parse s -- cgit