From e80116c813ecfc8cde094cddd36a3b083c108fd8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 19 Apr 2013 23:24:06 -0700
Subject: Improved previous patch so it really solves the Windows issue.
---
src/Text/Pandoc/Shared.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 001af6c6d..0780d4a60 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -105,7 +105,6 @@ import Network.HTTP (findHeader, rspBody,
import Network.Browser (browse, setAllowRedirects, request)
#ifdef EMBED_DATA_FILES
import Text.Pandoc.Data (dataFiles)
-import System.FilePath ( joinPath )
#else
import Paths_pandoc (getDataFileName)
#endif
@@ -526,7 +525,7 @@ readDefaultDataFile fname =
Nothing -> ioError $ userError
$ "Data file `" ++ fname ++ "' does not exist"
Just contents -> return contents
- where makeCanonical = joinPath . transformPathParts . splitBy (=='/')
+ where makeCanonical = intercalate "/" . transformPathParts . splitBy (=='/')
transformPathParts = reverse . foldl go []
go as "." = as
go (_:as) ".." = as
--
cgit v1.2.3