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