summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Runtime.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Runtime.hs')
-rw-r--r--src/Hakyll/Core/Runtime.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs
index 7354119..2ed3d2c 100644
--- a/src/Hakyll/Core/Runtime.hs
+++ b/src/Hakyll/Core/Runtime.hs
@@ -132,7 +132,9 @@ scheduleOutOfDate = do
-- Update facts and todo items
modify $ \s -> s
- { runtimeTodo = todo `M.union` todo'
+ { runtimeDone = runtimeDone s `S.union`
+ (S.fromList identifiers `S.difference` ood)
+ , runtimeTodo = todo `M.union` todo'
, runtimeFacts = facts'
}
@@ -143,7 +145,9 @@ pickAndChase = do
todo <- runtimeTodo <$> get
case M.minViewWithKey todo of
Nothing -> return ()
- Just ((id', _), _) -> chase [] id'
+ Just ((id', _), _) -> do
+ chase [] id'
+ pickAndChase
--------------------------------------------------------------------------------