Commit 43fea3a2 authored by Valentin Reis's avatar Valentin Reis

[refactor] argotk internal refactoring

parent 2ff5effc
Pipeline #4615 failed with stage
in 1 second
......@@ -20,13 +20,13 @@ opts :: Parser (IO ())
opts = subparser
( command "clean" (info (pure $ runClean def) idm)<> help "Target for the greeting"
<> command "daemon" (info (pure $ runDaemon def) idm)
<> command "helloworld" (info (pure $ runArgoTest def) idm) )
<> command "helloworld" (info (pure $ runSimpleStack def) idm) )
main :: IO ()
main = join $ execParser (info (opts <**>helper) idm)
runArgoTest :: StackArgs -> IO ()
runArgoTest a@StackArgs{..} = sh $ do
runSimpleStack :: StackArgs -> IO ()
runSimpleStack a@StackArgs{..} = sh $ do
cleanLeftovers daemon_out daemon_err cmd_out cmd_err time_file nrm_log
daemonShell <- prepareDaemonShell dargs daemon_out daemon_err nrm_log
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment