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.
commita796988a1672fee709c52968347f43ad0bede508
authorSaeid Al-Wazzan <saeid.wazzan@invigo.com>
dateMon 16 Sep 2013, 01:17 (13 years ago)
parent11d5b80
src/Hakyll/Web/Html.hs+1−1
@@ -25,7 +25,7 @@ import Data.Char (digitToInt, intToDigit,
2525 isDigit, toLower)
2626import Data.List (isPrefixOf)
2727import qualified Data.Set as S
28−import System.FilePath (joinPath, splitPath,
28+import System.FilePath.Posix (joinPath, splitPath,
2929 takeDirectory)
3030import Text.Blaze.Html (toHtml)
3131import Text.Blaze.Html.Renderer.String (renderHtml)