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

avoid partial !! in gpg list-keys parser

Browse source
This commit is contained in:
Joey Hess 2012-10-16 01:43:54 -04:00
parent a10b9a552c
commit 5513e71723
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Utility/Gpg.hs
View file

@ -87,9 +87,9 @@ findPubKeys :: String -> IO KeyIds
findPubKeys for = KeyIds . parse <$> readStrict params findPubKeys for = KeyIds . parse <$> readStrict params
where where
params = [Params "--with-colons --list-public-keys", Param for] params = [Params "--with-colons --list-public-keys", Param for]
parse = map keyIdField . filter pubKey . lines parse = catMaybes . map (keyIdField . split ":") . lines
pubKey = isPrefixOf "pub:" keyIdField ("pub":_:_:_:f:_) = Just f
keyIdField s = split ":" s !! 4 keyIdField _ = Nothing
{- Creates a block of high-quality random data suitable to use as a cipher. {- Creates a block of high-quality random data suitable to use as a cipher.
- It is armored, to avoid newlines, since gpg only reads ciphers up to the - It is armored, to avoid newlines, since gpg only reads ciphers up to the