From 27859234337db77edf465589083a99f500deaa7d Mon Sep 17 00:00:00 2001
From: Hexirp <Hexirp@users.noreply.github.com>
Date: Thu, 28 Nov 2019 00:05:14 +0900
Subject: Fix file path for compatibility with Windows

---
 lib/Hakyll/Web/Feed.hs | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'lib/Hakyll/Web')

diff --git a/lib/Hakyll/Web/Feed.hs b/lib/Hakyll/Web/Feed.hs
index 468453b..60a662c 100644
--- a/lib/Hakyll/Web/Feed.hs
+++ b/lib/Hakyll/Web/Feed.hs
@@ -39,24 +39,29 @@ import           Hakyll.Web.Template.List
 
 --------------------------------------------------------------------------------
 import           Data.FileEmbed              (makeRelativeToProject)
+import           System.FilePath             ((</>))
 
 
 --------------------------------------------------------------------------------
 rssTemplate :: Template
 rssTemplate =
-    $(makeRelativeToProject "data/templates/rss.xml" >>= embedTemplate)
+    $(makeRelativeToProject ("data" </> "templates" </> "rss.xml")
+        >>= embedTemplate)
 
 rssItemTemplate :: Template
 rssItemTemplate =
-    $(makeRelativeToProject "data/templates/rss-item.xml" >>= embedTemplate)
+    $(makeRelativeToProject ("data" </> "templates" </> "rss-item.xml")
+        >>= embedTemplate)
 
 atomTemplate :: Template
 atomTemplate =
-    $(makeRelativeToProject "data/templates/atom.xml" >>= embedTemplate)
+    $(makeRelativeToProject ("data" </> "templates" </> "atom.xml")
+        >>= embedTemplate)
 
 atomItemTemplate :: Template
 atomItemTemplate =
-    $(makeRelativeToProject "data/templates/atom-item.xml" >>= embedTemplate)
+    $(makeRelativeToProject ("data" </> "templates" </> "atom-item.xml")
+        >>= embedTemplate)
 
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3