diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-12-12 16:33:50 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-12-12 16:33:50 +0100 |
commit | 6f4ccbdc49c5662dcb9be59851310449ad4fd98d (patch) | |
tree | 39b298b7f3386a8eaf23b8577bd8352c8d07d409 /src/Hakyll/Core/Compiler/Require.hs | |
parent | 4ccd994758b554d5ba65be46f330b24ff3e8c123 (diff) | |
download | hakyll-6f4ccbdc49c5662dcb9be59851310449ad4fd98d.tar.gz |
Fix dependency handling for snapshots
Diffstat (limited to 'src/Hakyll/Core/Compiler/Require.hs')
-rw-r--r-- | src/Hakyll/Core/Compiler/Require.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Hakyll/Core/Compiler/Require.hs b/src/Hakyll/Core/Compiler/Require.hs index 0811e5d..d7635a9 100644 --- a/src/Hakyll/Core/Compiler/Require.hs +++ b/src/Hakyll/Core/Compiler/Require.hs @@ -32,12 +32,6 @@ import qualified Hakyll.Core.Store as Store -------------------------------------------------------------------------------- --- | Whilst compiling an item, it possible to save multiple snapshots of it, and --- not just the final result. -type Snapshot = String - - --------------------------------------------------------------------------------- save :: (Binary a, Typeable a) => Store -> Item a -> IO () save store item = saveSnapshot store final item @@ -70,7 +64,7 @@ loadSnapshot id' snapshot = do when (id' `S.notMember` universe) $ fail notFound compilerTellDependencies [IdentifierDependency id'] - compilerResult $ CompilerRequire id' $ do + compilerResult $ CompilerRequire (id', snapshot) $ do result <- compilerUnsafeIO $ Store.get store (key id' snapshot) case result of Store.NotFound -> fail notFound |