diff options
Diffstat (limited to 'src/Hakyll/Core/Runtime.hs')
-rw-r--r-- | src/Hakyll/Core/Runtime.hs | 8 |
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 -------------------------------------------------------------------------------- |