diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-05 13:44:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-05 13:44:09 -0400 |
| commit | 769edd6b08b12c61fd32c6c37aa8352a4100a39a (patch) | |
| tree | 1bc7f5208f9e61105ffad44a0002a77628d8ef94 /Utility | |
| parent | 156de9fc40633ff43d8d26bef88cafb29952a37a (diff) | |
Run gpg with --no-tty. Closes: #654721
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Gpg.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index f3a1ac0bb..b50e775d0 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -28,8 +28,9 @@ stdParams params = do let batch = if isNothing e then [] else ["--batch"] return $ batch ++ defaults ++ toCommand params where - -- be quiet, even about checking the trustdb - defaults = ["--quiet", "--trust-model", "always"] + -- be quiet, even about checking the trustdb, + -- and avoid using a tty + defaults = ["--quiet", "--trust-model", "always", "--no-tty"] {- Runs gpg with some params and returns its stdout, strictly. -} readStrict :: [CommandParam] -> IO String |