From 928b92515f2ab21bc7bb74fe65cdaaf40e81e57c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 3 Aug 2015 18:31:38 +0200
Subject: minor code cleanup

---
 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 dde7047..1facff6 100644
--- a/src/Site.hs
+++ b/src/Site.hs
@@ -13,7 +13,7 @@ import Data.Default
 import Text.Pandoc.Options (WriterOptions(..), ObfuscationMethod(..))
 import Control.Applicative (Alternative(..), Applicative(..))
 
-import System.FilePath (replaceExtension)
+import System.FilePath (takeBaseName, (</>), (<.>))
 
 main :: IO ()
 main = hakyllWith config $ do
@@ -46,7 +46,7 @@ main = hakyllWith config $ do
         >>= relativizeUrls
 
   let
-    tags' = tags { tagsMakeId = fromFilePath . (`replaceExtension` "rss") . toFilePath . tagsMakeId tags}
+    tags' = tags { tagsMakeId = fromFilePath . (\b -> "rss" </> b <.> "rss") . takeBaseName . toFilePath . tagsMakeId tags}
 
   tagsRules tags' $ \tag pattern -> do
     route idRoute
-- 
cgit v1.2.3