diff options
| author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-29 22:08:23 +0000 |
|---|---|---|
| committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-29 22:08:23 +0000 |
| commit | 1dcdd6d2da9aa0ab9772986e72d69fd6f8ae5496 (patch) | |
| tree | 2bed086586b320d6e4ed8fcd7db2e8f72a35168d /app | |
| parent | 299cdf8c690900daebf09c7d27e01c53cb406dfe (diff) | |
| download | pfm-1dcdd6d2da9aa0ab9772986e72d69fd6f8ae5496.tar.gz pfm-1dcdd6d2da9aa0ab9772986e72d69fd6f8ae5496.zip | |
Implement saving
Diffstat (limited to 'app')
| -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 |