From b8674519d5a8e1e78d41368d54700317fbc0158f Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 24 Feb 2017 14:34:58 +0100 Subject: Removed useless TEXINPUTS stuff for context2pdf. mkiv context doesn't use TEXINPUTS. --- src/Text/Pandoc/PDF.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'src/Text') 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" -- cgit v1.2.3