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}
runHelloWorld :: StackArgs -> IO ()
runHelloWorld a@StackArgs{..} = do
let passStr = "HelloWorldFromApp"
runSimpleStack $ a {app = format ("echo "%s) passStr}
readTextFile cmd_err >>= \x -> case match (has passStr) x of
let passText = "HelloWorldFromApp"
let passPattern = text passText
runSimpleStack $ a {app = format ("echo "%s) passText}
readTextFile cmd_err >>= \x -> case match (has passPattern) 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"
......
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