diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-08-04 15:48:25 +0200 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-08-04 15:48:25 +0200 |
commit | 411e3ca598ac3cc0b3bbdd66e47ca4101b84ebf9 (patch) | |
tree | 652851b48290c1260e2d599e928e060e55bbd9f7 /src | |
parent | 46cf2aa1fb307b194660ba3b2bcd8fe400a49704 (diff) | |
download | dirty-haskell.org-411e3ca598ac3cc0b3bbdd66e47ca4101b84ebf9.tar dirty-haskell.org-411e3ca598ac3cc0b3bbdd66e47ca4101b84ebf9.tar.gz dirty-haskell.org-411e3ca598ac3cc0b3bbdd66e47ca4101b84ebf9.tar.bz2 dirty-haskell.org-411e3ca598ac3cc0b3bbdd66e47ca4101b84ebf9.tar.xz dirty-haskell.org-411e3ca598ac3cc0b3bbdd66e47ca4101b84ebf9.zip |
Link fix
Diffstat (limited to 'src')
-rw-r--r-- | src/Site.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Site.hs b/src/Site.hs index 239eb04..cbdf2d8 100644 --- a/src/Site.hs +++ b/src/Site.hs | |||
@@ -89,7 +89,7 @@ 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" ("rss" </> tagTranslation tag <.> "rss") |
93 | , constField "url" ("tags" </> tagTranslation tag <.> "html") | 93 | , constField "url" ("tags" </> tagTranslation tag <.> "html") |
94 | , defaultContext | 94 | , defaultContext |
95 | ] | 95 | ] |