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