diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-04-16 21:12:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-04-16 21:12:42 -0700 |
| commit | e1cc73ed97a932d46ee1e16862ea70ad37d94cc1 (patch) | |
| tree | ea9360ef99b2e746f5bd9e5998e7d193a60bc62b /src | |
| parent | 144b2eabc2ae5478b3627c24eb2c5dbc23ff28a5 (diff) | |
| download | pandoc-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')
| -rw-r--r-- | src/Text/Pandoc/PDF.hs | 4 |
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" |