summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Site.hs4
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
13import Text.Pandoc.Options (WriterOptions(..), ObfuscationMethod(..)) 13import Text.Pandoc.Options (WriterOptions(..), ObfuscationMethod(..))
14import Control.Applicative (Alternative(..), Applicative(..)) 14import Control.Applicative (Alternative(..), Applicative(..))
15 15
16import System.FilePath (replaceExtension) 16import System.FilePath (takeBaseName, (</>), (<.>))
17 17
18main :: IO () 18main :: IO ()
19main = hakyllWith config $ do 19main = hakyllWith config $ do
@@ -46,7 +46,7 @@ main = hakyllWith config $ do
46 >>= relativizeUrls 46 >>= relativizeUrls
47 47
48 let 48 let
49 tags' = tags { tagsMakeId = fromFilePath . (`replaceExtension` "rss") . toFilePath . tagsMakeId tags} 49 tags' = tags { tagsMakeId = fromFilePath . (\b -> "rss" </> b <.> "rss") . takeBaseName . toFilePath . tagsMakeId tags}
50 50
51 tagsRules tags' $ \tag pattern -> do 51 tagsRules tags' $ \tag pattern -> do
52 route idRoute 52 route idRoute