From a796988a1672fee709c52968347f43ad0bede508 Mon Sep 17 00:00:00 2001 From: Saeid Al-Wazzan Date: Mon, 16 Sep 2013 01:17:38 +0300 Subject: Fix incorrect output of toSiteRoot on Windows. toSiteRoot uses splitPath, joinPath, and takeDirectory from the System.FilePath module. On Windows systems, the implementation of joinPath will build up a path using the Windows path separator "\\". We don't want this behavior since the paths we are working with are always URLs, so we force POSIX behavior for System.FilePath. --- src/Hakyll/Web/Html.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll/Web/Html.hs') diff --git a/src/Hakyll/Web/Html.hs b/src/Hakyll/Web/Html.hs index 3a0aa3b..f5a7ccc 100644 --- a/src/Hakyll/Web/Html.hs +++ b/src/Hakyll/Web/Html.hs @@ -25,7 +25,7 @@ import Data.Char (digitToInt, intToDigit, isDigit, toLower) import Data.List (isPrefixOf) import qualified Data.Set as S -import System.FilePath (joinPath, splitPath, +import System.FilePath.Posix (joinPath, splitPath, takeDirectory) import Text.Blaze.Html (toHtml) import Text.Blaze.Html.Renderer.String (renderHtml) -- cgit v1.2.3