shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Better error message.

--- a/lib/System/Process.hs

+++ b/lib/System/Process.hs

@@ -9,4 +9,4 @@

 callCommand cmd = do

   r <- withCAString cmd systemc

   when (r /= 0) $

-    error $ "callCommand: failed " ++ show r

+    error $ "callCommand: failed " ++ show r ++ ", " ++ show cmd

-- 

⑨