diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-03 22:13:04 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-03 22:13:04 +0100 |
| commit | 2ceb5f59d0728c380ad7b4f319a9282741e715b9 (patch) | |
| tree | efac70b64e1f18a308ccf3b1ba23c8b55a98f05b /src/Hakyll/Core/DirectedGraph | |
| parent | 40c75767d4f926de4ce2fd3db688e46987fb8b72 (diff) | |
| download | hakyll-2ceb5f59d0728c380ad7b4f319a9282741e715b9.tar.gz | |
Avoid looking at up-to-date items at all
Diffstat (limited to 'src/Hakyll/Core/DirectedGraph')
| -rw-r--r-- | src/Hakyll/Core/DirectedGraph/ObsoleteFilter.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Hakyll/Core/DirectedGraph/ObsoleteFilter.hs b/src/Hakyll/Core/DirectedGraph/ObsoleteFilter.hs index f781819..9aeb2ff 100644 --- a/src/Hakyll/Core/DirectedGraph/ObsoleteFilter.hs +++ b/src/Hakyll/Core/DirectedGraph/ObsoleteFilter.hs @@ -7,6 +7,7 @@ module Hakyll.Core.DirectedGraph.ObsoleteFilter ( filterObsolete ) where +import Data.Set (Set) import qualified Data.Set as S import Hakyll.Core.DirectedGraph @@ -16,10 +17,11 @@ import qualified Hakyll.Core.DirectedGraph as DG -- contains these items -- filterObsolete :: Ord a - => [a] -- ^ List of obsolete items + => Set a -- ^ Obsolete items -> DirectedGraph a -- ^ Dependency graph -> DirectedGraph a -- ^ Resulting dependency graph filterObsolete obsolete graph = let reversed = DG.reverse graph - allObsolete = S.unions $ map (flip reachableNodes reversed) obsolete + allObsolete = S.unions $ map (flip reachableNodes reversed) + $ S.toList obsolete in DG.filter (`S.member` allObsolete) graph |