From 43fea3a20e18cba989b11a4b8e0b528e8b4c1ce2 Mon Sep 17 00:00:00 2001 From: Valentin Reis Date: Tue, 11 Dec 2018 13:20:01 -0600 Subject: [PATCH] [refactor] argotk internal refactoring --- argotk.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/argotk.hs b/argotk.hs index 7b33722..ec61fc0 100755 --- a/argotk.hs +++ b/argotk.hs @@ -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 -- 2.26.2