diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-14 10:08:21 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-14 10:08:21 +0100 |
| commit | 61dcb5f454fcbd912b09839021f4c79ca60973fe (patch) | |
| tree | 37b39b20bc3f5325d2c13939c03ce286162eb354 /src/Hakyll/Core/Runtime.hs | |
| parent | 2912fcd521d0d9fbe93dae37783f5f379893ddb1 (diff) | |
| parent | 02a92d54cdee8299aac0f55cbe4a930ac5060d20 (diff) | |
| download | hakyll-61dcb5f454fcbd912b09839021f4c79ca60973fe.tar.gz | |
Merge branch 'master' into dev-metadata-route
Diffstat (limited to 'src/Hakyll/Core/Runtime.hs')
| -rw-r--r-- | src/Hakyll/Core/Runtime.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index f166b3c..9f27969 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -6,7 +6,7 @@ module Hakyll.Core.Runtime -------------------------------------------------------------------------------- import Control.Applicative ((<$>)) -import Control.Monad (filterM, unless) +import Control.Monad (unless) import Control.Monad.Error (ErrorT, runErrorT, throwError) import Control.Monad.Reader (ask) import Control.Monad.RWS (RWST, runRWST) @@ -140,8 +140,9 @@ scheduleOutOfDate = do todo <- runtimeTodo <$> get let identifiers = M.keys universe - modified <- fmap S.fromList $ flip filterM identifiers $ - liftIO . resourceModified provider + modified = S.fromList $ flip filter identifiers $ + resourceModified provider + let (ood, facts', msgs) = outOfDate identifiers modified facts todo' = M.filterWithKey (\id' _ -> id' `S.member` ood) universe |