diff options
Diffstat (limited to 'app/Main.hs')
-rw-r--r-- | app/Main.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/app/Main.hs b/app/Main.hs index 22c0fba..9c75d6f 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,10 +1,12 @@ module Main where -import qualified Data.ByteString as B -import qualified Data.Text as T +import qualified Data.ByteString as B +import qualified Data.ByteString.Lazy as BL +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 + let i = parse s + BL.writeFile "random.pfm" $ encode i |