diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-08-03 23:26:00 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-08-03 23:26:00 +0200 |
| commit | 953ae525d6583cfd140328078aea879392cb96cc (patch) | |
| tree | 85560b68743fbe72ab6b664d34511656ad5b92e5 | |
| parent | d5582299c7704cd94419997af6d9bd2aa0701045 (diff) | |
| download | dirty-haskell.org-953ae525d6583cfd140328078aea879392cb96cc.tar dirty-haskell.org-953ae525d6583cfd140328078aea879392cb96cc.tar.gz dirty-haskell.org-953ae525d6583cfd140328078aea879392cb96cc.tar.bz2 dirty-haskell.org-953ae525d6583cfd140328078aea879392cb96cc.tar.xz dirty-haskell.org-953ae525d6583cfd140328078aea879392cb96cc.zip | |
FilePathication
| -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 "" |