@@ -105,7 +105,6 @@ import Network.HTTP (findHeader, rspBody,
105105import Network.Browser (browse, setAllowRedirects, request)
106106#ifdef EMBED_DATA_FILES
107107import Text.Pandoc.Data (dataFiles)
108−import System.FilePath ( joinPath )
109108#else
110109import Paths_pandoc (getDataFileName)
111110#endif
@@ -526,7 +525,7 @@ readDefaultDataFile fname =
526525 Nothing -> ioError $ userError
527526 $ "Data file `" ++ fname ++ "' does not exist"
528527 Just contents -> return contents
529− where makeCanonical = joinPath . transformPathParts . splitBy (=='/')
528+ where makeCanonical = intercalate "/" . transformPathParts . splitBy (=='/')
530529 transformPathParts = reverse . foldl go []
531530 go as "." = as
532531 go (_:as) ".." = as