1ceb5eb · hakyll · git.iko.soy

Produce even more output when running with -v

commit1ceb5eb205438b3ff57fe74ada821d89695869d9 authorJasper Van der Jeugt <m@jaspervdj.be> dateSun 13 Jan 2013, 11:35 (14 years ago) parent408a991

2 files changed+8−3

unifiedsplit

src/Hakyll/Core/Compiler.hs+6−3

@@ -114,9 +114,12 @@ getResourceWith reader = do

114114saveSnapshot :: (Binary a, Typeable a)

115115 => Internal.Snapshot -> Item a -> Compiler (Item a)

116116saveSnapshot snapshot item = do

117− store <- compilerStore <$> compilerAsk

118− compilerUnsafeIO $ Internal.saveSnapshot store snapshot item

119− return item

117+ store <- compilerStore <$> compilerAsk

118+ logger <- compilerLogger <$> compilerAsk

119+ compilerUnsafeIO $ do

120+ Logger.debug logger $ "Storing snapshot: " ++ snapshot

121+ Internal.saveSnapshot store snapshot item

122+ return item

120123

121124

122125--------------------------------------------------------------------------------

src/Hakyll/Core/Runtime.hs+2

@@ -246,4 +246,6 @@ chase trail id'

246246

247247 -- If the required item is already compiled, continue, or, start

248248 -- chasing that

249+ Logger.debug logger $ "Require " ++ show dep ++ ": " ++

250+ (if depDone then "OK" else "chasing")

249251 if depDone then chase trail id' else chase (id' : trail) dep