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

Merge pull request #766 from burz/master

Browse Source 
Fix an import error and add color to "Build failure" warning.
This commit is contained in:
Michael Snoyman 2014-07-07 06:57:07 +03:00
commit fec962d779
2 changed files with 3 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

2
yesod-newsfeed/Yesod/Feed.hs
View File

@ -26,6 +26,8 @@ import Yesod.AtomFeed
import Yesod.RssFeed import Yesod.RssFeed
import Yesod.Core import Yesod.Core
import Data.Text
newsFeed :: MonadHandler m => Feed (Route (HandlerSite m)) -> m TypedContent newsFeed :: MonadHandler m => Feed (Route (HandlerSite m)) -> m TypedContent
newsFeed f = selectRep $ do newsFeed f = selectRep $ do
provideRep $ atomFeed f provideRep $ atomFeed f