Commit 4e760302 authored by refold's avatar refold
Browse files

Make rawSystemStdInOut more verbose on error.

parent 213fc799
......@@ -490,6 +490,10 @@ rawSystemStdInOut verbosity path args input outputBinary = do
debug verbosity $ path ++ " returned " ++ show exitcode
++ if null err then "" else
" with error message:\n" ++ err
++ case input of
Nothing -> ""
Just ("", _) -> ""
Just (inp, _) -> "\nstdin input:\n" ++ inp
return (out, err, exitcode)
......
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