From 00a9db504cf921946207998b2897677bb3d4cbf6 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 30 Jan 2019 22:31:10 +0000 Subject: Update cabal and Main to create directory --- src/Main.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index b674eb6..8bba9a0 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,6 +6,7 @@ import qualified Data.ByteString.Lazy as BL import qualified Data.Text as T import Data.Word (Word8) import PFM +import System.Directory (createDirectoryIfMissing) import Vec clamp :: PFMColour -> PPMColour @@ -49,9 +50,10 @@ revColour (PFMImage w h i) = main :: IO () main = do + createDirectoryIfMissing True "data" let i = circleImage (normalise 511) 511 - BL.writeFile "normal.ppm" . encodePPM . clampImage $ i - BL.writeFile "normal.pfm" . encode . revColour $ i + BL.writeFile "data/normal.ppm" . encodePPM . clampImage $ i + BL.writeFile "data/normal.pfm" . encode . revColour $ i let r = circleImage (reflect 511 (Vec (0, 0, 1))) 511 - BL.writeFile "reflect.ppm" . encodePPM . clampImage $ r - BL.writeFile "reflect.pfm" . encode . revColour $ r + BL.writeFile "data/reflect.ppm" . encodePPM . clampImage $ r + BL.writeFile "data/reflect.pfm" . encode . revColour $ r -- cgit