We now need to check the exitcode of the tests
authorIan Lynagh <igloo@earth.li>
Sat, 21 Apr 2007 16:23:30 +0000 (09:23 -0700)
committerIan Lynagh <igloo@earth.li>
Sat, 21 Apr 2007 16:23:30 +0000 (09:23 -0700)
darcs-hash:20070421162330-3fd76-36ce113c06f673ae509deac9eb047e5f539a69c5

Setup.hs

index caecfdd..d2fff29 100644 (file)
--- a/Setup.hs
+++ b/Setup.hs
@@ -2,10 +2,11 @@ module Main (main) where
 
 import Control.Exception
 import Data.List
-import Distribution.Simple
 import Distribution.PackageDescription
 import Distribution.Setup
+import Distribution.Simple
 import Distribution.Simple.LocalBuildInfo
+import Distribution.Simple.Utils
 import System.Cmd
 import System.Directory
 import System.Environment
@@ -29,10 +30,9 @@ withCurrentDirectory path f = do
     setCurrentDirectory path
     finally f (setCurrentDirectory cur)
 
-runTestScript :: Args -> Bool -> PackageDescription -> LocalBuildInfo
-              -> IO ()
+runTestScript :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO ()
 runTestScript _args _flag _pd _lbi
- = withCurrentDirectory "test" (system "make")
+ = maybeExit $ withCurrentDirectory "test" $ system "make"
 
 extractGhcArgs :: [String] -> ([String], [String])
 extractGhcArgs = extractPrefixArgs "--ghc-option="