Default to run action
This commit is contained in:
parent
8263d01b86
commit
9b268759a1
|
@ -17,7 +17,7 @@ main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
args <- getArgs
|
args <- getArgs
|
||||||
case args of
|
case args of
|
||||||
["run"] -> do
|
[] -> do
|
||||||
((), filesWritten) <- DR.runDepRunMIO $ DR.runDeps dependencies
|
((), filesWritten) <- DR.runDepRunMIO $ DR.runDeps dependencies
|
||||||
putStrLn ("Files which could have been written: " ++ show filesWritten)
|
putStrLn ("Files which could have been written: " ++ show filesWritten)
|
||||||
["tree"] ->
|
["tree"] ->
|
||||||
|
|
Loading…
Reference in New Issue