diff options
Diffstat (limited to 'Utility/Process.hs')
-rw-r--r-- | Utility/Process.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index 78755f639..e12b9700e 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -133,7 +133,8 @@ forceSuccessProcess p pid = do code <- waitForProcess pid case code of ExitSuccess -> return () - ExitFailure n -> error $ showCmd p ++ " exited " ++ show n + ExitFailure n -> ioError $ userError $ + showCmd p ++ " exited " ++ show n -- | Waits for a ProcessHandle and returns True if it exited successfully. -- Note that using this with createProcessChecked will throw away |