From 1ceb5eb205438b3ff57fe74ada821d89695869d9 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sun, 13 Jan 2013 11:35:11 +0100
Subject: Produce even more output when running with -v

---
 src/Hakyll/Core/Compiler.hs | 9 ++++++---
 src/Hakyll/Core/Runtime.hs  | 2 ++
 2 files changed, 8 insertions(+), 3 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3