summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIvan N. Veselov <veselov@gmail.com>2013-05-05 12:58:31 +0300
committerIvan N. Veselov <veselov@gmail.com>2013-05-05 12:58:31 +0300
commit946723dc9dd2f4f16f89e0077193544cda6e5b6e (patch)
treeeff7d1c8eae63abf436dae291e22c5d4c63b5ee8
parent17054556163750b1c5cbb0787b5855067f21a63a (diff)
downloadhakyll-946723dc9dd2f4f16f89e0077193544cda6e5b6e.tar.gz
Logged dependencies adding for debugging purposes.
-rw-r--r--src/Hakyll/Core/Compiler/Internal.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs
index 5b3e466..259cd35 100644
--- a/src/Hakyll/Core/Compiler/Internal.hs
+++ b/src/Hakyll/Core/Compiler/Internal.hs
@@ -221,7 +221,11 @@ compilerUnsafeIO io = Compiler $ \_ -> do
--------------------------------------------------------------------------------
compilerTellDependencies :: [Dependency] -> Compiler ()
-compilerTellDependencies ds = compilerTell mempty {compilerDependencies = ds}
+compilerTellDependencies ds = do
+ logger <- compilerLogger <$> compilerAsk
+ forM_ ds $ \d -> compilerUnsafeIO $ Logger.debug logger $
+ "Hakyll.Core.Compiler.Internal: Adding dependency: " ++ show d
+ compilerTell mempty {compilerDependencies = ds}
{-# INLINE compilerTellDependencies #-}