From 2f28fde6e0f682041d3590ac9640ea0e4d8b5258 Mon Sep 17 00:00:00 2001
From: Valentin Reis <valentin.reis@gmail.com>
Date: Fri, 14 Dec 2018 14:47:38 -0600
Subject: [PATCH] [fix] fix type error.

---
 argotk.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/argotk.hs b/argotk.hs
index de05574..8d7dbb4 100755
--- a/argotk.hs
+++ b/argotk.hs
@@ -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"
-- 
2.26.2