9178295 · hakyll · git.iko.soy

git.iko.soy/hakyll

Add report function to logger

commit917829539cfe61a55bb1dd16bf91b00011ce8dd2 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateMon 21 Feb 2011, 13:15 (16 years ago) parent8b57ab5

2 files changed+11

compare with master

unifiedsplit

src/Hakyll/Core/Compiler.hs+2 src/Hakyll/Core/Logger.hs+9

src/Hakyll/Core/Compiler.hs+2

@@ -254,9 +254,11 @@ cached :: (Binary a, Typeable a, Writable a)

254254 -> Compiler Resource a

255255 -> Compiler Resource a

256256cached name (Compiler d j) = Compiler d $ const $ CompilerM $ do

257+ logger <- compilerLogger <$> ask

257258 identifier <- compilerIdentifier <$> ask

258259 store <- compilerStore <$> ask

259260 modified <- compilerResourceModified <$> ask

261+ report logger $ "Checking cache: " ++ if modified then "modified" else "OK"

260262 if modified

261263 then do v <- unCompilerM $ j $ Resource identifier

262264 liftIO $ storeSet store name identifier v

src/Hakyll/Core/Logger.hs+9

@@ -7,6 +7,7 @@ module Hakyll.Core.Logger

77 , flushLogger

88 , section

99 , timed

10+ , report

1011 ) where

1112

1213import Control.Monad (forever)

@@ -79,3 +80,11 @@ timed logger msg action = do

7980 formatted = printf " [%4dms] %s" ms msg

8081 liftIO $ message logger formatted

8182 return result

83+

84+-- | Log something at the same level as 'timed', but without the timing

85+--

86+report :: MonadIO m

87+ => Logger -- ^ Logger

88+ -> String -- ^ Message

89+ -> m () -- ^ No result

90+report logger msg = liftIO $ message logger $ " [ ] " ++ msg