diff options
| -rw-r--r-- | provider/posts/hakyll.md | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/provider/posts/hakyll.md b/provider/posts/hakyll.md index fe2f856..8e8b1fc 100644 --- a/provider/posts/hakyll.md +++ b/provider/posts/hakyll.md | |||
| @@ -69,7 +69,8 @@ renderTag tag tags = do | |||
| 69 | ellipsisItem <- makeItem "" | 69 | ellipsisItem <- makeItem "" |
| 70 | let | 70 | let |
| 71 | ids = fromMaybe [] $ lookup tag $ tagsMap tags | 71 | ids = fromMaybe [] $ lookup tag $ tagsMap tags |
| 72 | postCtx = mconcat [ listField "posts" (ellipsisContext ellipsisItem) $ liftM (withEllipsis ellipsisItem) $ chronological =<< mapM load ids | 72 | postCtx = mconcat [ listField "posts" (ellipsisContext ellipsisItem) $ |
| 73 | liftM (withEllipsis ellipsisItem) $ chronological =<< mapM load ids | ||
| 73 | , constField "title" tag | 74 | , constField "title" tag |
| 74 | , constField "rss" ("tags/" ++ tagTranslation tag ++ ".rss") | 75 | , constField "rss" ("tags/" ++ tagTranslation tag ++ ".rss") |
| 75 | , constField "url" ("tags/" ++ tagTranslation tag ++ ".html") | 76 | , constField "url" ("tags/" ++ tagTranslation tag ++ ".html") |