LibV09: restore exit on subprocess error

Author: robx

Cabal/src/Distribution/Simple/Test/LibV09.hs

@@ -103,7 +103,7 @@ runTest pkg_descr lbi clbi flags suite = do
         -- TODO: this setup is broken,
         -- if the test output is too big, we will deadlock.
         (rOut, wOut) <- Process.createPipe
-        (_exitcode, logText) <- rawSystemProcAction verbosity
+        (exitcode, logText) <- rawSystemProcAction verbosity
             (proc cmd' opts') { Process.env           = Just shellEnv'
                               , Process.std_in        = Process.CreatePipe
                               , Process.std_out       = Process.UseHandle wOut
@@ -119,6 +119,7 @@ runTest pkg_descr lbi clbi flags suite = do
           -- Force the IO manager to drain the test output pipe
           _ <- evaluate (force logText)
           return logText
+        unless (exitcode == ExitSuccess) $ exitWith exitcode
 
         -- Generate final log file name
         let finalLogName l = testLogDir