haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add color to "Build failure" warning

Browse Source
This commit is contained in:
Anthony Burzillo 2014-07-06 23:25:17 -04:00
parent 3e100451d4
commit 54a4417f54
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-bin/Devel.hs
View File

@ -266,7 +266,7 @@ devel opts passThroughArgs = withSocketsDo $ withManager $ \manager -> do
unless (anyTouched || haskellFileChanged) $ loop list1 unless (anyTouched || haskellFileChanged) $ loop list1
if not success if not success
then liftIO $ do then liftIO $ do
putStrLn "Build failure, pausing..." putStrLn "\x1b[1;31mBuild failure, pausing...\x1b[0m"
runBuildHook $ failHook opts runBuildHook $ failHook opts
else do else do
liftIO $ runBuildHook $ successHook opts liftIO $ runBuildHook $ successHook opts