diff options
| -rw-r--r-- | src/Text/Pandoc/PDF.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs index 01dc45d24..c4080a227 100644 --- a/src/Text/Pandoc/PDF.hs +++ b/src/Text/Pandoc/PDF.hs @@ -60,7 +60,10 @@ import Text.Pandoc.Logging #ifdef _WINDOWS changePathSeparators :: FilePath -> FilePath -changePathSeparators = intercalate "/" . splitDirectories +changePathSeparators = + -- We filter out backslashes because an initial `C:\` gets + -- retained by `splitDirectories`, see #6173: + intercalate "/" . map (filter (/='\\')) . splitDirectories #endif makePDF :: String -- ^ pdf creator (pdflatex, lualatex, xelatex, |