2020-07-07 18:21:08 -04:00
|
|
|
module Main (main) where
|
|
|
|
|
|
2020-07-07 23:28:20 -04:00
|
|
|
import System.Environment (getArgs)
|
|
|
|
|
import qualified Data.ByteString.Lazy as ByteString
|
|
|
|
|
import qualified Data.YAML as YAML
|
|
|
|
|
import qualified Data.Text.Lazy.IO as Text
|
|
|
|
|
import ImagePage
|
|
|
|
|
|
2020-07-07 18:21:08 -04:00
|
|
|
main :: IO ()
|
2020-07-07 23:28:20 -04:00
|
|
|
main = do
|
|
|
|
|
[file] <- getArgs
|
|
|
|
|
txt <- ByteString.readFile file
|
|
|
|
|
let Right info = YAML.decode1 txt
|
|
|
|
|
Text.putStr $ make info
|
