From 27859234337db77edf465589083a99f500deaa7d Mon Sep 17 00:00:00 2001 From: Hexirp Date: Thu, 28 Nov 2019 00:05:14 +0900 Subject: Fix file path for compatibility with Windows --- lib/Hakyll/Core/Identifier.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lib/Hakyll/Core') 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 -------------------------------------------------------------------------------- -- cgit v1.2.3