@@ -91,7 +91,8 @@ handleImage' baseURL tmpdir (Image ils (src,tit)) = do
91 let ext = fromMaybe (takeExtension src) $
91 let ext = fromMaybe (takeExtension src) $
92 extensionFromMimeType mime
92 extensionFromMimeType mime
93 let basename = UTF8.toString $ B64.encode $ UTF8.fromString src
93 let basename = UTF8.toString $ B64.encode $ UTF8.fromString src
94+ -- note: we want / even on Windows, for TexLive:
94− let fname = tmpdir </> basename <.> ext
95+ let fname = tmpdir ++ "/" ++ basename <.> ext
95 BS.writeFile fname contents
96 BS.writeFile fname contents
96 return $ Image ils (fname,tit)
97 return $ Image ils (fname,tit)
@@ -143,7 +144,7 @@ extractMsg log' = do
143runTeXProgram :: String -> Int -> FilePath -> String
144runTeXProgram :: String -> Int -> FilePath -> String
144 -> IO (ExitCode, ByteString, Maybe ByteString)
145 -> IO (ExitCode, ByteString, Maybe ByteString)
145runTeXProgram program runsLeft tmpDir source = do
146runTeXProgram program runsLeft tmpDir source = do
146− let file = tmpDir </> "input.tex"
147+ let file = tmpDir ++ "/input.tex"
147 exists <- doesFileExist file
148 exists <- doesFileExist file
148 unless exists $ UTF8.writeFile file source
149 unless exists $ UTF8.writeFile file source
149 let programArgs = ["-halt-on-error", "-interaction", "nonstopmode",
150 let programArgs = ["-halt-on-error", "-interaction", "nonstopmode",