Produce even more output when running with -v

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