diff --git a/argotk.hs b/argotk.hs index b3fff14caf0f82797d5f4843ec255a627d93058a..de055747a52590e098a7377f3fa3dda02536b465 100755 --- a/argotk.hs +++ b/argotk.hs @@ -45,7 +45,7 @@ runHelloWorld :: StackArgs -> IO () runHelloWorld a@StackArgs{..} = do let passStr = "HelloWorldFromApp" runSimpleStack $ a {app = format ("echo "%s) passStr} - readTextFile cmd_err >>= \x -> case match (has "HelloWorldFromApp") x of + readTextFile cmd_err >>= \x -> case match (has passStr) x of [] -> die ("Hello world app failed to run.") _ -> sh $ printInfo "The hello world app executed properly in a \ \container and its message was received by `cmd`.\n"