From a4dd7d5c08e52c0064ff391663d8871e79558ee2 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 26 Nov 2012 09:33:23 +0200
Subject: [PATCH] Point to build.log on error (#1)

---
 Stackage/Build.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Stackage/Build.hs b/Stackage/Build.hs
index bbe9c4f7..6e59b284 100644
--- a/Stackage/Build.hs
+++ b/Stackage/Build.hs
@@ -24,7 +24,9 @@ build = do
     ph <- withBinaryFile "build.log" WriteMode $ \handle ->
         runProcess "cabal-dev" ("install":"-fnetwork23":iiPackageList ii) Nothing Nothing Nothing (Just handle) (Just handle)
     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"
     runTestSuites ii