mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Run gpg with --no-tty. Closes: #654721

Browse source
This commit is contained in:
Joey Hess 2012-01-05 13:44:09 -04:00
parent 156de9fc40
commit 769edd6b08
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Utility/Gpg.hs
View file

@ -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