Point to build.log on error (#1)

This commit is contained in:
Michael Snoyman 2012-11-26 09:33:23 +02:00
parent ad58f04d72
commit a4dd7d5c08

View File

@ -24,7 +24,9 @@ build = do
ph <- withBinaryFile "build.log" WriteMode $ \handle -> ph <- withBinaryFile "build.log" WriteMode $ \handle ->
runProcess "cabal-dev" ("install":"-fnetwork23":iiPackageList ii) Nothing Nothing Nothing (Just handle) (Just handle) runProcess "cabal-dev" ("install":"-fnetwork23":iiPackageList ii) Nothing Nothing Nothing (Just handle) (Just handle)
ec <- waitForProcess ph ec <- waitForProcess ph
unless (ec == ExitSuccess) $ exitWith ec unless (ec == ExitSuccess) $ do
putStrLn "Build failed, please see build.log"
exitWith ec
putStrLn "Sandbox built, beginning individual test suites" putStrLn "Sandbox built, beginning individual test suites"
runTestSuites ii runTestSuites ii