aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-04-16 21:12:42 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2019-04-16 21:12:42 -0700
commite1cc73ed97a932d46ee1e16862ea70ad37d94cc1 (patch)
treeea9360ef99b2e746f5bd9e5998e7d193a60bc62b /src/Text/Pandoc
parent144b2eabc2ae5478b3627c24eb2c5dbc23ff28a5 (diff)
downloadpandoc-e1cc73ed97a932d46ee1e16862ea70ad37d94cc1.tar.gz
Text.Pandoc.PDF: replace `</>` with literal "/".
We use forward-slash for a directory separator in tmpDir, even on Windows (because that's what tex likes). So we should not put a backslash between the tmpDir and the filename on Windows. This is harmless enough in normal Windows setups, but it breaks on Cygwin. Closes #5451. Thanks to @cc2x for noticing and diagnosing the problem.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/PDF.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs
index a8c50c3ae..97daa6859 100644
--- a/src/Text/Pandoc/PDF.hs
+++ b/src/Text/Pandoc/PDF.hs
@@ -297,7 +297,7 @@ runTectonic verbosity program args' tmpDir' source = do
putStrLn "[makePDF] Running"
BL.hPutStr stdout out
putStr "\n"
- let pdfFile = tmpDir </> "texput.pdf"
+ let pdfFile = tmpDir ++ "/texput.pdf"
(_, pdf) <- getResultingPDF Nothing pdfFile
return (exit, out, pdf)
@@ -335,7 +335,7 @@ runTeXProgram verbosity program args runNumber numRuns tmpDir' source = do
[x] -> drop 8 x
_ -> tmpDir'
liftIO $ createDirectoryIfMissing True tmpDir
- let file = tmpDir </> "input.tex"
+ let file = tmpDir ++ "/input.tex" -- note: tmpDir has / path separators
exists <- liftIO $ doesFileExist file
unless exists $ liftIO $ BS.writeFile file $ UTF8.fromText source
let isLatexMk = takeBaseName program == "latexmk"