@@ -43,7 +43,9 @@ main = do
43runCmd :: String -> [String] -> IO ()
43runCmd :: String -> [String] -> IO ()
44runCmd cmd args = do
44runCmd cmd args = do
45 putStrLn (cmd ++ " " ++ unwords args)
45 putStrLn (cmd ++ " " ++ unwords args)
46− (exitCode, _stdout, stderr) <- readProcessWithExitCode cmd args ""
46+ (exitCode, stdout, stderr) <- readProcessWithExitCode cmd args ""
47 case exitCode of
49 case exitCode of
48 ExitSuccess -> return ()
50 ExitSuccess -> return ()
49− ExitFailure _ -> error stderr
51+ ExitFailure _ -> exitWith exitCode