From 953ae525d6583cfd140328078aea879392cb96cc Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 3 Aug 2015 23:26:00 +0200
Subject: FilePathication

---
 src/Site.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
     ids = fromMaybe [] $ lookup tag $ tagsMap tags
     postCtx = mconcat [ listField "posts" (ellipsisContext ellipsisItem) $ liftM (withEllipsis ellipsisItem) $ chronological =<< mapM load ids
                       , constField "title" tag
-                      , constField "rss" ("tags/" ++ tagTranslation tag ++ ".rss")
-                      , constField "url" ("tags/" ++ tagTranslation tag ++ ".html")
+                      , constField "rss" ("tags" </> tagTranslation tag <.> "rss")
+                      , constField "url" ("tags" </> tagTranslation tag <.> "html")
                       , defaultContext
                       ]
   makeItem ""
-- 
cgit v1.2.3