diff options
| -rw-r--r-- | src/Site.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Site.hs b/src/Site.hs index e9f186f..239eb04 100644 --- a/src/Site.hs +++ b/src/Site.hs | |||
| @@ -89,8 +89,8 @@ renderTag tag tags = do | |||
| 89 | ids = fromMaybe [] $ lookup tag $ tagsMap tags | 89 | ids = fromMaybe [] $ lookup tag $ tagsMap tags |
| 90 | postCtx = mconcat [ listField "posts" (ellipsisContext ellipsisItem) $ liftM (withEllipsis ellipsisItem) $ chronological =<< mapM load ids | 90 | postCtx = mconcat [ listField "posts" (ellipsisContext ellipsisItem) $ liftM (withEllipsis ellipsisItem) $ chronological =<< mapM load ids |
| 91 | , constField "title" tag | 91 | , constField "title" tag |
| 92 | , constField "rss" ("tags/" ++ tagTranslation tag ++ ".rss") | 92 | , constField "rss" ("tags" </> tagTranslation tag <.> "rss") |
| 93 | , constField "url" ("tags/" ++ tagTranslation tag ++ ".html") | 93 | , constField "url" ("tags" </> tagTranslation tag <.> "html") |
| 94 | , defaultContext | 94 | , defaultContext |
| 95 | ] | 95 | ] |
| 96 | makeItem "" | 96 | makeItem "" |