Kind of make it work with pre-compilation

But very messy now.

byg/src/Main.hs

@@ -1,25 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
 module Main where
 
-import Types
+import Dependency
 import ComputationM
-import Functions
+import Generator
 
-handleRecipeDir :: Token Template -> Token FilePath -> ComputationM ()
-handleRecipeDir template dir = do
-  dirContents <- listDirectory dir
-  imageFilenames <- filterComputationM isImageFilename dirContents
-  convertedImageFilenames <- mapComputationM convertedImageFilename imageFilenames
-  flip mapComputationM_ (zipTokens imageFilenames convertedImageFilenames) $ \files -> do
-    settings <- inject $ ResizeToWidth 800
-    convertImage $ tupleTokens files settings
+import Language.Haskell.TH.Syntax
 
-test :: ComputationM ()
-test = do
-  templateFilename <- inject "template.html"
-  template <- readTemplate templateFilename
-  dir <- inject "retter"
-  dirContents <- listDirectory dir
-  mapComputationM_ (handleRecipeDir template) dirContents
+dependencies :: [DependencyUntyped]
+dependencies = $(lift (evalComputationM generate))
 
 main :: IO ()
-main = mapM_ print $ evalComputationM test
+main = mapM_ print dependencies