Commit b19d2dd3 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Improve an error message.

parent d5ad3402
......@@ -133,7 +133,7 @@ runProgramInvocation verbosity
mcwd menv
(Just input) True
when (exitCode /= ExitSuccess) $
die errors
die $ "'" ++ path ++ "' exited with an error:\n" ++ errors
where
input = case encoding of
IOEncodingText -> (inputStr, False)
......@@ -160,7 +160,7 @@ getProgramInvocationOutput verbosity
mcwd menv
input utf8
when (exitCode /= ExitSuccess) $
die errors
die $ "'" ++ path ++ "' exited with an error:\n" ++ errors
return (decode output)
where
input =
......
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