Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Text.Pandoc.PDF: only print relevant part of environment on --verbose.

Browse source
This commit is contained in:
John MacFarlane 2021-06-02 15:21:13 -06:00
parent 2b5dad9912
commit 311736fb0a
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Text/Pandoc/PDF.hs
View file

@ -507,8 +507,20 @@ showVerboseInfo mbTmpDir program programArgs env source = do
UTF8.hPutStrLn stderr $
T.pack program <> " " <> T.pack (unwords (map show programArgs))
UTF8.hPutStr stderr "\n"
UTF8.hPutStrLn stderr "[makePDF] Environment:"
mapM_ (UTF8.hPutStrLn stderr . tshow) env
UTF8.hPutStrLn stderr "[makePDF] Relevant environment variables:"
-- we filter out irrelevant stuff to avoid leaking passwords and keys!
let isRelevant ("PATH",_) = True
isRelevant ("TMPDIR",_) = True
isRelevant ("PWD",_) = True
isRelevant ("LANG",_) = True
isRelevant ("HOME",_) = True
isRelevant ("LUA_PATH",_) = True
isRelevant ("LUA_CPATH",_) = True
isRelevant ("SHELL",_) = True
isRelevant ("TEXINPUTS",_) = True
isRelevant ("TEXMFOUTPUT",_) = True
isRelevant _ = False
mapM_ (UTF8.hPutStrLn stderr . tshow) (filter isRelevant env)
UTF8.hPutStr stderr "\n"
UTF8.hPutStrLn stderr "[makePDF] Source:"
UTF8.hPutStrLn stderr source