Add color to "Build failure" warning

2014-07-06 23:25:17 -04:00 · 2014-07-06 23:25:17 -04:00 · 54a4417f54
commit 54a4417f54
parent 3e100451d4
1 changed files with 1 additions and 1 deletions
--- a/yesod-bin/Devel.hs
+++ b/yesod-bin/Devel.hs
@ -266,7 +266,7 @@ devel opts passThroughArgs = withSocketsDo $ withManager $ \manager -> do
                   unless (anyTouched || haskellFileChanged) $ loop list1
           if not success
             then liftIO $ do
-                   putStrLn "Build failure, pausing..."
+                   putStrLn "\x1b[1;31mBuild failure, pausing...\x1b[0m"
                   runBuildHook $ failHook opts
             else do
                   liftIO $ runBuildHook $ successHook opts