Support running the dependency runner from the command line

Will fail currently
This commit is contained in:
2024-09-27 21:18:29 +02:00
parent d3b32398b5
commit 67447ac23b
2 changed files with 14 additions and 4 deletions

View File

@@ -4,7 +4,9 @@ module Main where
import Types.Dependency (Dependency, formatDependencyTrees)
import DependencyGenerator (evalDepGenM)
import SiteGenerator (generateSite)
import DependencyRunner (runDeps, runDepRunMIO)
import System.Environment (getArgs)
import qualified Data.Text.IO as T
import Language.Haskell.TH.Syntax (lift)
@@ -12,4 +14,12 @@ dependencies :: [Dependency]
dependencies = $(lift (evalDepGenM generateSite))
main :: IO ()
main = T.putStr $ formatDependencyTrees dependencies
main = do
args <- getArgs
case args of
["run"] ->
runDepRunMIO $ runDeps dependencies
["tree"] ->
T.putStr $ formatDependencyTrees dependencies
_ ->
error "unexpected arguments"