diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-04-11 21:12:01 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-04-11 21:12:01 +0200 |
commit | 8229765cbdf971c15e18fc8eb5a5733340b57739 (patch) | |
tree | 04d9cc96855bac300f0bd1a1dffcdad348824962 /src/Hakyll/Web/Paginate.hs | |
parent | 889e6f59f761795af3f2cb83c2a551b9c8478d66 (diff) | |
download | hakyll-8229765cbdf971c15e18fc8eb5a5733340b57739.tar.gz |
Fix tag dependency issue, slightly improve caching
Diffstat (limited to 'src/Hakyll/Web/Paginate.hs')
-rw-r--r-- | src/Hakyll/Web/Paginate.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Hakyll/Web/Paginate.hs b/src/Hakyll/Web/Paginate.hs index eafd3a9..1af792e 100644 --- a/src/Hakyll/Web/Paginate.hs +++ b/src/Hakyll/Web/Paginate.hs @@ -15,6 +15,7 @@ import Control.Monad (forM_) import Data.List (unfoldr) import qualified Data.Map as M import Data.Monoid (mconcat) +import qualified Data.Set as S import Text.Printf (printf) @@ -58,7 +59,7 @@ buildPaginate pattern = do "invalid page number: " ++ show pn return $ Paginate pagPages pagPlaces makeId - (PatternDependency pattern idents) + (PatternDependency pattern (S.fromList idents)) -------------------------------------------------------------------------------- @@ -81,7 +82,7 @@ buildPaginateWith n makeId pattern = do [(makeId i, i) | i <- [1 .. nPages]] return $ Paginate (M.fromList paginatePages') (M.fromList pagPlaces') makeId - (PatternDependency pattern idents) + (PatternDependency pattern (S.fromList idents)) -------------------------------------------------------------------------------- |