From 54a4417f54157f63443f1dddce1d9bb14c2d193e Mon Sep 17 00:00:00 2001 From: Anthony Burzillo Date: Sun, 6 Jul 2014 23:25:17 -0400 Subject: [PATCH] Add color to "Build failure" warning --- yesod-bin/Devel.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index ccd4c358..77f34286 100644 --- 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