Only show exit failure if there's no error

chrisdone-archive · Jan 13, 2014 · 9845503 · 9845503
1 parent ce4f431
commit 9845503
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/TryHaskell.hs b/src/TryHaskell.hs
@@ -232,7 +232,7 @@ mueval typeOnly e =
          case drop 1 (T.lines out) of
            [typ,value'] -> return (Right (T.pack e,typ,value'))
            _ -> return (Left ("Unable to get type and value of expression: " <> T.pack e))
-       ExitFailure{} -> return (Left (out <> " " <> T.pack (show status)))
+       ExitFailure{} -> return (Left (out <> if out == "" then " " <> T.pack (show status)  else ""))
   where options importsfp =
           ["-i","-t","1","--expression",e] ++
           ["--no-imports","-l",importsfp] ++