1ceb5eb · hakyll · git.iko.soy

on master help sign in

Produce even more output when running with -v

1ceb5ebJasper Van der Jeugt14 years ago

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

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

114saveSnapshot :: (Binary a, Typeable a)

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

116saveSnapshot snapshot item = do

117− store <- compilerStore <$> compilerAsk

117+ store <- compilerStore <$> compilerAsk

118+ logger <- compilerLogger <$> compilerAsk

119+ compilerUnsafeIO $ do

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

118− compilerUnsafeIO $ Internal.saveSnapshot store snapshot item

121+ Internal.saveSnapshot store snapshot item

119− return item

122+ return item

120

123

121

124

122--------------------------------------------------------------------------------

125--------------------------------------------------------------------------------

src/Hakyll/Core/Runtime.hs+2

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

246

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

248 -- chasing that

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

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

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

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