From 919b7f7351250f84f0fcaf60378fe433b84eae6c Mon Sep 17 00:00:00 2001 From: Valentin Reis Date: Fri, 14 Dec 2018 14:43:54 -0600 Subject: [PATCH] [fix] typo --- argotk.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/argotk.hs b/argotk.hs index b3fff14..de05574 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" -- 2.26.2