Revert "Improved previous patch so it really solves the Windows issue."

This reverts commit e80116c.
hblu · Apr 20, 2013 · 3c1a8d1 · 3c1a8d1
1 parent e80116c
commit 3c1a8d1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
@@ -105,6 +105,7 @@ 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
@@ -525,7 +526,7 @@ readDefaultDataFile fname =
     Nothing       -> ioError $ userError
                              $ "Data file `" ++ fname ++ "' does not exist"
     Just contents -> return contents
-  where makeCanonical = intercalate "/" . transformPathParts . splitBy (=='/')
+  where makeCanonical = joinPath . transformPathParts . splitBy (=='/')
         transformPathParts = reverse . foldl go []
         go as     "."  = as
         go (_:as) ".." = as