@@ -19,6 +19,7 @@ import System.IO (BufferMode (NoBuffering),
1919import qualified System.IO.UTF8
2020import System.Process (rawSystem, runProcess,
2121 waitForProcess)
22+import qualified Data.ByteString.Lazy.Char8 as L8
2223
2324defaultBuildSettings :: Maybe Int -- ^ argument to -j
2425 -> GhcMajorVersion
@@ -105,6 +106,7 @@ build settings' bp = do
105106 ec <- waitForProcess ph
106107 unless (ec == ExitSuccess) $ do
107108 putStrLn "Build failed, please see build.log"
109+ L8.readFile "build.log" >>= L8.putStr
108110 exitWith ec
109111
110112 putStrLn "Build completed successfully, checking for module name conflicts"