@@ -346,11 +346,6 @@ context2pdf verbosity tmpDir source = inDirectory tmpDir $ do
347 let programArgs = "--batchmode" : [file]
347 let programArgs = "--batchmode" : [file]
348 env' <- getEnvironment
348 env' <- getEnvironment
349− let sep = [searchPathSeparator]
350− let texinputs = maybe (".." ++ sep) ((".." ++ sep) ++)
351− $ lookup "TEXINPUTS" env'
352− let env'' = ("TEXINPUTS", texinputs) :
353− [(k,v) | (k,v) <- env', k /= "TEXINPUTS"]
354 when (verbosity >= INFO) $ do
349 when (verbosity >= INFO) $ do
355 putStrLn "[makePDF] temp dir:"
350 putStrLn "[makePDF] temp dir:"
356 putStrLn tmpDir'
351 putStrLn tmpDir'
@@ -358,12 +353,12 @@ context2pdf verbosity tmpDir source = inDirectory tmpDir $ do
358 putStrLn $ "context" ++ " " ++ unwords (map show programArgs)
353 putStrLn $ "context" ++ " " ++ unwords (map show programArgs)
359 putStr "\n"
354 putStr "\n"
360 putStrLn "[makePDF] Environment:"
355 putStrLn "[makePDF] Environment:"
361− mapM_ print env''
356+ mapM_ print env'
362 putStr "\n"
357 putStr "\n"
363 putStrLn $ "[makePDF] Contents of " ++ file ++ ":"
358 putStrLn $ "[makePDF] Contents of " ++ file ++ ":"
364 B.readFile file >>= B.putStr
359 B.readFile file >>= B.putStr
365 putStr "\n"
360 putStr "\n"
366− (exit, out) <- pipeProcess (Just env'') "context" programArgs BL.empty
361+ (exit, out) <- pipeProcess (Just env') "context" programArgs BL.empty
367 when (verbosity >= INFO) $ do
362 when (verbosity >= INFO) $ do
368 B.hPutStr stdout out
363 B.hPutStr stdout out
369 putStr "\n"
364 putStr "\n"