Don't lift types

Not needed since we only care about the final IO () result.

byg/src/Main.hs

@@ -1,28 +1,17 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Main where
 
-import DependencyGenerator (evalDepGenM)
-import SiteGenerator (generateSite)
 import qualified Precomputer
 
 import System.Environment (getArgs)
-import Data.Text (Text)
-import qualified Data.Text.IO as T
-import Language.Haskell.TH.Syntax
-
-formatDependencyTrees :: Text
-formatDependencyTrees = $$(Precomputer.formatDependencyTrees $(lift (evalDepGenM generateSite)))
-
-runDeps :: IO ()
-runDeps = $$(Precomputer.runDeps $(lift (evalDepGenM generateSite)))
 
 main :: IO ()
 main = do
   args <- getArgs
   case args of
     ["run"] ->
-      runDeps
+      $$(Precomputer.runDeps)
     ["tree"] ->
-      T.putStr formatDependencyTrees
+      $$(Precomputer.formatDependencyTrees)
     _ ->
       error "unexpected arguments"