summaryrefslogtreecommitdiff
path: root/src/Hakyll/Web/Paginate.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2014-04-11 21:12:01 +0200
committerJasper Van der Jeugt <m@jaspervdj.be>2014-04-11 21:12:01 +0200
commit8229765cbdf971c15e18fc8eb5a5733340b57739 (patch)
tree04d9cc96855bac300f0bd1a1dffcdad348824962 /src/Hakyll/Web/Paginate.hs
parent889e6f59f761795af3f2cb83c2a551b9c8478d66 (diff)
downloadhakyll-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.hs5
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))
--------------------------------------------------------------------------------