minor code cleanup

1 files changed, 2 insertions, 2 deletions

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