Merge pull request #766 from burz/master

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

View File

@ -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

View File

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