Move SiteGenerator into executable only and rename library to Byg.*

This commit is contained in:
2024-11-09 22:44:46 +01:00
parent 0f0bde5f18
commit a60f652242
22 changed files with 109 additions and 106 deletions

26
byg/app/Main.hs Normal file
View File

@@ -0,0 +1,26 @@
module Main where
import Byg.Types (Dependency)
import qualified Byg.DependencyRunner as DR
import qualified Byg.Types.Dependency as D
import Byg.DependencyGenerator (evalDepGenM)
import SiteGenerator (generateSite)
import System.Environment (getArgs)
import qualified Data.Text.IO as T
dependencies :: [Dependency]
dependencies = evalDepGenM generateSite
main :: IO ()
main = do
args <- getArgs
case args of
["run"] -> do
((), filesWritten) <- DR.runDepRunMIO $ DR.runDeps dependencies
putStrLn ("Files which could have been written: " ++ show filesWritten)
["tree"] ->
T.putStr $ D.formatDependencyTrees dependencies
_ ->
error "unexpected arguments"