[feature] improved output command printing.

argotk/argotk.hs

@@ -16,6 +16,7 @@ import           Options.Applicative
 import           System.Posix.Signals
 import           Control.Monad
 import           Data.Either
+import           Data.Maybe
 
 opts :: StackArgs -> Parser (IO ())
 opts sa = hsubparser
@@ -86,7 +87,14 @@ runStack a@StackArgs {..} = sh $ runSimpleStack a >>= \case
   FoundMessage -> printSuccess "Found message!\n" >> exit ExitSuccess
   DaemonDied ->
     printError "Daemon died unexpectedly.\n" >> exit (ExitFailure 1)
-  CmdDied -> printError "Did not find message.\n" >> exit (ExitFailure 1)
+  CmdDied -> do
+    when
+        (   or
+        $   isJust
+        <$> [messageDaemonOut, messageDaemonErr, messageCmdOut, messageCmdErr]
+        )
+      $ printError "Did not find message.\n"
+    exit (ExitFailure 1)
 
 runClean :: StackArgs -> IO ()
 runClean = sh . cleanLeftovers