Commit 2f28fde6 authored by Valentin Reis's avatar Valentin Reis

[fix] fix type error.

parent 919b7f73
Pipeline #4667 passed with stage
in 6 seconds
...@@ -43,9 +43,10 @@ runApp sa app = runSimpleStack $ sa {app = app} ...@@ -43,9 +43,10 @@ runApp sa app = runSimpleStack $ sa {app = app}
runHelloWorld :: StackArgs -> IO () runHelloWorld :: StackArgs -> IO ()
runHelloWorld a@StackArgs{..} = do runHelloWorld a@StackArgs{..} = do
let passStr = "HelloWorldFromApp" let passText = "HelloWorldFromApp"
runSimpleStack $ a {app = format ("echo "%s) passStr} let passPattern = text passText
readTextFile cmd_err >>= \x -> case match (has passStr) x of runSimpleStack $ a {app = format ("echo "%s) passText}
readTextFile cmd_err >>= \x -> case match (has passPattern) x of
[] -> die ("Hello world app failed to run.") [] -> die ("Hello world app failed to run.")
_ -> sh $ printInfo "The hello world app executed properly in a \ _ -> sh $ printInfo "The hello world app executed properly in a \
\container and its message was received by `cmd`.\n" \container and its message was received by `cmd`.\n"
......
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