diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-24 14:34:58 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-24 14:34:58 +0100 |
| commit | b8674519d5a8e1e78d41368d54700317fbc0158f (patch) | |
| tree | 0abc55f19fff1836ef3d7c685a84e68ef84a5bb3 /src | |
| parent | 72af7b4ee5802be3a08566be06acd3d1fa92a51f (diff) | |
| download | pandoc-b8674519d5a8e1e78d41368d54700317fbc0158f.tar.gz | |
Removed useless TEXINPUTS stuff for context2pdf.
mkiv context doesn't use TEXINPUTS.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/PDF.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs index 35141ae88..d2518b78e 100644 --- a/src/Text/Pandoc/PDF.hs +++ b/src/Text/Pandoc/PDF.hs @@ -346,11 +346,6 @@ context2pdf verbosity tmpDir source = inDirectory tmpDir $ do #endif let programArgs = "--batchmode" : [file] env' <- getEnvironment - let sep = [searchPathSeparator] - let texinputs = maybe (".." ++ sep) ((".." ++ sep) ++) - $ lookup "TEXINPUTS" env' - let env'' = ("TEXINPUTS", texinputs) : - [(k,v) | (k,v) <- env', k /= "TEXINPUTS"] when (verbosity >= INFO) $ do putStrLn "[makePDF] temp dir:" putStrLn tmpDir' @@ -358,12 +353,12 @@ context2pdf verbosity tmpDir source = inDirectory tmpDir $ do putStrLn $ "context" ++ " " ++ unwords (map show programArgs) putStr "\n" putStrLn "[makePDF] Environment:" - mapM_ print env'' + mapM_ print env' putStr "\n" putStrLn $ "[makePDF] Contents of " ++ file ++ ":" B.readFile file >>= B.putStr putStr "\n" - (exit, out) <- pipeProcess (Just env'') "context" programArgs BL.empty + (exit, out) <- pipeProcess (Just env') "context" programArgs BL.empty when (verbosity >= INFO) $ do B.hPutStr stdout out putStr "\n" |