From 1dcdd6d2da9aa0ab9772986e72d69fd6f8ae5496 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 29 Jan 2019 22:08:23 +0000 Subject: Implement saving --- app/Main.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'app') 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 -- cgit