diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-24 10:56:19 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-24 10:56:19 +0100 |
commit | 0a6b2b259862b90ccca11281de89091e2e01cb4d (patch) | |
tree | 9b4841724ad8d6d06df9682168c714cd3d3d7901 /src/Hakyll/Core/Runtime.hs | |
parent | bc192a127b8c57ccb45ff6c773f5917fdbf7ec85 (diff) | |
download | hakyll-0a6b2b259862b90ccca11281de89091e2e01cb4d.tar.gz |
Add snapshots
Diffstat (limited to 'src/Hakyll/Core/Runtime.hs')
-rw-r--r-- | src/Hakyll/Core/Runtime.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index 96b21cd..cdc7fdb 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -27,7 +27,6 @@ import Hakyll.Core.Compiler.Require import Hakyll.Core.Configuration import Hakyll.Core.Dependencies import Hakyll.Core.Identifier -import Hakyll.Core.Item import Hakyll.Core.Item.SomeItem import Hakyll.Core.Logger (Logger) import qualified Hakyll.Core.Logger as Logger @@ -194,8 +193,7 @@ chase trail id' -- Huge success CompilerDone (SomeItem item) cwrite -> do -- TODO: Sanity check on itemIdentifier? - let body = itemBody item - facts = compilerDependencies cwrite + let facts = compilerDependencies cwrite cacheHits | compilerCacheHits cwrite <= 0 = "updated" | otherwise = "cached " @@ -213,7 +211,7 @@ chase trail id' Logger.debug logger $ "Routed to " ++ path -- Save! (For require) - liftIO $ save store id' body + liftIO $ save store item -- Update state modify $ \s -> s |