diff options
author | Ivan N. Veselov <veselov@gmail.com> | 2013-05-05 12:58:31 +0300 |
---|---|---|
committer | Ivan N. Veselov <veselov@gmail.com> | 2013-05-05 12:58:31 +0300 |
commit | 946723dc9dd2f4f16f89e0077193544cda6e5b6e (patch) | |
tree | eff7d1c8eae63abf436dae291e22c5d4c63b5ee8 | |
parent | 17054556163750b1c5cbb0787b5855067f21a63a (diff) | |
download | hakyll-946723dc9dd2f4f16f89e0077193544cda6e5b6e.tar.gz |
Logged dependencies adding for debugging purposes.
-rw-r--r-- | src/Hakyll/Core/Compiler/Internal.hs | 6 |
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 #-} |