Fixed v1.16 reversion with --latex-engine.

In 1.16 --latex-engine raises an error if a full path is given. This commit fixes this reversion. Closes jgm#2618.
c-forster · Feb 29, 2016 · 4555fba · 4555fba
1 parent 5c818c1
commit 4555fba
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs
@@ -99,9 +99,9 @@ makePDF program writer opts doc = withTempDir "tex2pdf." $ \tmpdir -> do
   doc' <- handleImages opts tmpdir doc
   let source = writer opts doc'
       args   = writerLaTeXArgs opts
-  case program of
+  case takeBaseName program of
      "context" -> context2pdf (writerVerbose opts) tmpdir source
-     _ | program `elem` ["pdflatex", "lualatex", "xelatex"]
+     prog | prog `elem` ["pdflatex", "lualatex", "xelatex"]
          -> tex2pdf' (writerVerbose opts) args tmpdir program source
      _ -> return $ Left $ UTF8.fromStringLazy $ "Unknown program " ++ program