diff options
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Gpg.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index 8f7e27870..4c798f273 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -23,9 +23,13 @@ newtype KeyIds = KeyIds [String] stdParams :: [CommandParam] -> IO [String] stdParams params = do -- Enable batch mode if GPG_AGENT_INFO is set, to avoid extraneous - -- gpg output about password prompts. + -- gpg output about password prompts. GPG_BATCH is set by the test + -- suite for a similar reason. e <- getEnv "GPG_AGENT_INFO" - let batch = if isNothing e then [] else ["--batch", "--no-tty"] + b <- getEnv "GPG_BATCH" + let batch = if isNothing e && isNothing b + then [] + else ["--batch", "--no-tty"] return $ batch ++ defaults ++ toCommand params where -- be quiet, even about checking the trustdb |