git.iko.soy/typeable/pandoc
on master help sign in
Text.Pandoc.PDF: replace `</>` with literal "/".
e1cc73eJohn MacFarlane
src/Text/Pandoc/PDF.hs+2−2
@@ -297,7 +297,7 @@ runTectonic verbosity program args' tmpDir' source = do
297 putStrLn "[makePDF] Running"
297 putStrLn "[makePDF] Running"
298 BL.hPutStr stdout out
298 BL.hPutStr stdout out
299 putStr "\n"
299 putStr "\n"
300− let pdfFile = tmpDir </> "texput.pdf"
300+ let pdfFile = tmpDir ++ "/texput.pdf"
301 (_, pdf) <- getResultingPDF Nothing pdfFile
301 (_, pdf) <- getResultingPDF Nothing pdfFile
302 return (exit, out, pdf)
302 return (exit, out, pdf)
303
303
@@ -335,7 +335,7 @@ runTeXProgram verbosity program args runNumber numRuns tmpDir' source = do
335 [x] -> drop 8 x
335 [x] -> drop 8 x
336 _ -> tmpDir'
336 _ -> tmpDir'
337 liftIO $ createDirectoryIfMissing True tmpDir
337 liftIO $ createDirectoryIfMissing True tmpDir
338− let file = tmpDir </> "input.tex"
338+ let file = tmpDir ++ "/input.tex" -- note: tmpDir has / path separators
339 exists <- liftIO $ doesFileExist file
339 exists <- liftIO $ doesFileExist file
340 unless exists $ liftIO $ BS.writeFile file $ UTF8.fromText source
340 unless exists $ liftIO $ BS.writeFile file $ UTF8.fromText source
341 let isLatexMk = takeBaseName program == "latexmk"
341 let isLatexMk = takeBaseName program == "latexmk"