add a temp main for making a single page

make-pages/Main.hs

@@ -1,4 +1,14 @@
 module Main (main) where
 
+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
+
 main :: IO ()
-main = error "undefined: 'main' in Main.hs"
+main = do
+  [file] <- getArgs
+  txt <- ByteString.readFile file
+  let Right info = YAML.decode1 txt
+  Text.putStr $ make info