summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-12-05 13:58:53 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-12-05 13:58:53 -0400
commite6a9043dfe2ca5b82081f056cdfff4ed5fdfec93 (patch)
treef79fb62580f04bce35788e32985e3e5795926cf0 /Utility
parentb928dc64041b7e3e19f7f8787cc1e38fb5b465ed (diff)
fix gpg subkey support typo
initremote, enableremote: Really support gpg subkeys suffixed with an exclamation mark, which forces gpg to use a specific subkey. (Previous try had a bug.) This commit was sponsored by Jake Vosloo on Patreon.
Diffstat (limited to 'Utility')
-rw-r--r--Utility/Gpg.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs
index 94d588cd7..2ffb0add6 100644
--- a/Utility/Gpg.hs
+++ b/Utility/Gpg.hs
@@ -171,7 +171,7 @@ findPubKeys cmd for
{- "subkey!" tells gpg to force use of a specific subkey -}
isForcedSubKey :: String -> Bool
-isForcedSubKey s = "!" `isSuffixOf` s && all isHexDigit (drop 1 s)
+isForcedSubKey s = "!" `isSuffixOf` s && all isHexDigit (drop 1 (reverse s))
type UserId = String