diff options
| author | Hexirp <Hexirp@users.noreply.github.com> | 2019-11-28 00:05:14 +0900 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2019-11-27 09:05:14 -0600 |
| commit | 27859234337db77edf465589083a99f500deaa7d (patch) | |
| tree | 58126f9ea1fabb5a9f6d4f1327a348ff8dd0cdea /lib | |
| parent | e7f0df00098af7ccdcea2124ec1758cbbde65747 (diff) | |
| download | hakyll-27859234337db77edf465589083a99f500deaa7d.tar.gz | |
Fix file path for compatibility with Windows
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Hakyll/Core/Identifier.hs | 7 | ||||
| -rw-r--r-- | lib/Hakyll/Web/Feed.hs | 13 |
2 files changed, 14 insertions, 6 deletions
diff --git a/lib/Hakyll/Core/Identifier.hs b/lib/Hakyll/Core/Identifier.hs index 6054771..d6306a8 100644 --- a/lib/Hakyll/Core/Identifier.hs +++ b/lib/Hakyll/Core/Identifier.hs @@ -21,7 +21,8 @@ module Hakyll.Core.Identifier -------------------------------------------------------------------------------- import Control.DeepSeq (NFData (..)) import Data.List (intercalate) -import System.FilePath (dropTrailingPathSeparator, splitPath) +import System.FilePath (dropTrailingPathSeparator, splitPath, + pathSeparator) -------------------------------------------------------------------------------- @@ -72,7 +73,9 @@ fromFilePath = Identifier Nothing . -------------------------------------------------------------------------------- -- | Convert an identifier to a relative 'FilePath' toFilePath :: Identifier -> FilePath -toFilePath = identifierPath +toFilePath = intercalate [pathSeparator] . split' . identifierPath + where + split' = map dropTrailingPathSeparator . splitPath -------------------------------------------------------------------------------- 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) -------------------------------------------------------------------------------- |