@@ -99,9 +99,9 @@ makePDF program writer opts doc = withTempDir "tex2pdf." $ \tmpdir -> do
9999 doc' <- handleImages opts tmpdir doc
100100 let source = writer opts doc'
101101 args = writerLaTeXArgs opts
102− case program of
102+ case takeBaseName program of
103103 "context" -> context2pdf (writerVerbose opts) tmpdir source
104− _ | program `elem` ["pdflatex", "lualatex", "xelatex"]
104+ prog | prog `elem` ["pdflatex", "lualatex", "xelatex"]
105105 -> tex2pdf' (writerVerbose opts) args tmpdir program source
106106 _ -> return $ Left $ UTF8.fromStringLazy $ "Unknown program " ++ program
107107