PDF: Use / as path separators even on Windows.
This seems to be necessary for texlive. Closes #1151 (again!).
This commit is contained in:
parent
f3c9d37885
commit
c026c16fa6
1 changed files with 3 additions and 2 deletions
|
@ -91,7 +91,8 @@ handleImage' baseURL tmpdir (Image ils (src,tit)) = do
|
|||
let ext = fromMaybe (takeExtension src) $
|
||||
extensionFromMimeType mime
|
||||
let basename = UTF8.toString $ B64.encode $ UTF8.fromString src
|
||||
let fname = tmpdir </> basename <.> ext
|
||||
-- note: we want / even on Windows, for TexLive:
|
||||
let fname = tmpdir ++ "/" ++ basename <.> ext
|
||||
BS.writeFile fname contents
|
||||
return $ Image ils (fname,tit)
|
||||
_ -> do
|
||||
|
@ -143,7 +144,7 @@ extractMsg log' = do
|
|||
runTeXProgram :: String -> Int -> FilePath -> String
|
||||
-> IO (ExitCode, ByteString, Maybe ByteString)
|
||||
runTeXProgram program runsLeft tmpDir source = do
|
||||
let file = tmpDir </> "input.tex"
|
||||
let file = tmpDir ++ "/input.tex"
|
||||
exists <- doesFileExist file
|
||||
unless exists $ UTF8.writeFile file source
|
||||
let programArgs = ["-halt-on-error", "-interaction", "nonstopmode",
|
||||
|
|
Loading…
Add table
Reference in a new issue