Support running the dependency runner from the command line
Will fail currently
This commit is contained in:
@@ -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"
|
||||
|
||||
Reference in New Issue
Block a user