summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2015-08-03 23:26:00 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2015-08-03 23:26:00 +0200
commit953ae525d6583cfd140328078aea879392cb96cc (patch)
tree85560b68743fbe72ab6b664d34511656ad5b92e5
parentd5582299c7704cd94419997af6d9bd2aa0701045 (diff)
downloaddirty-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.hs4
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 ""