diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-13 11:35:11 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-13 11:35:11 +0100 |
| commit | 1ceb5eb205438b3ff57fe74ada821d89695869d9 (patch) | |
| tree | 494043bc225aeb1c390fdbedd7ed94d94146562a /src | |
| parent | 408a991b5eb2a766402b6c9b6caeada98665bfa4 (diff) | |
| download | hakyll-1ceb5eb205438b3ff57fe74ada821d89695869d9.tar.gz | |
Produce even more output when running with -v
Diffstat (limited to 'src')
| -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 |