ngws
/
mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support running the dependency runner from the command line 

Will fail currently
This commit is contained in:
Niels G. W. Serup 2024-09-27 21:18:29 +02:00
parent d3b32398b5
commit 67447ac23b
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
byg/src/DependencyRunner.hs
View File

@ -1,7 +1,7 @@
module DependencyRunner
( DepRunM
, runDeps
, runDepRunM
, runDepRunMIO
) where
import Types (Value(..), Valuable(..))
@ -19,8 +19,8 @@ newtype DepRunM a = DepRunM { unDepRunM :: StateT (Map Int Value) IO a }
runDeps :: [Dependency] -> DepRunM ()
runDeps = mapM_ runDep
runDepRunM :: DepRunM a -> IO a
runDepRunM m = evalStateT (unDepRunM m) M.empty
runDepRunMIO :: DepRunM a -> IO a
runDepRunMIO m = evalStateT (unDepRunM m) M.empty
runDep :: Dependency -> DepRunM ()
runDep (Dependency a action b) = do

12
byg/src/Main.hs
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"