diff options
| -rw-r--r-- | src/Hakyll/Core/Compiler.hs | 9 | ||||
| -rw-r--r-- | src/Hakyll/Core/Runtime.hs | 2 |
2 files changed, 8 insertions, 3 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs index 16364c9..ca43201 100644 --- a/src/Hakyll/Core/Compiler.hs +++ b/src/Hakyll/Core/Compiler.hs @@ -114,9 +114,12 @@ getResourceWith reader = do saveSnapshot :: (Binary a, Typeable a) => Internal.Snapshot -> Item a -> Compiler (Item a) saveSnapshot snapshot item = do - store <- compilerStore <$> compilerAsk - compilerUnsafeIO $ Internal.saveSnapshot store snapshot item - return item + store <- compilerStore <$> compilerAsk + logger <- compilerLogger <$> compilerAsk + compilerUnsafeIO $ do + Logger.debug logger $ "Storing snapshot: " ++ snapshot + Internal.saveSnapshot store snapshot item + return item -------------------------------------------------------------------------------- diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index cb0813b..1b83692 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -246,4 +246,6 @@ chase trail id' -- If the required item is already compiled, continue, or, start -- chasing that + Logger.debug logger $ "Require " ++ show dep ++ ": " ++ + (if depDone then "OK" else "chasing") if depDone then chase trail id' else chase (id' : trail) dep |