Merge pull request #766 from burz/master
Fix an import error and add color to "Build failure" warning.
This commit is contained in:
commit
fec962d779
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user