summaryrefslogtreecommitdiff
path: root/lib/KeyRing.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-04-25 20:31:06 -0400
committerjoe <joe@jerkface.net>2016-04-25 20:31:06 -0400
commit1bac5f8f59ee84cbd0ec674323236e1c22c1bbc0 (patch)
tree4151a53faa0e11a5a69f6b7e30413b002f20c828 /lib/KeyRing.hs
parent6860098ed8f8b56eb5058e0c9c427abaa57021bf (diff)
DeleteSubKey renamed to DeleteSubkeyByFingerprint.
Diffstat (limited to 'lib/KeyRing.hs')
-rw-r--r--lib/KeyRing.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 1c6dea8..74b883f 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -428,7 +428,7 @@ data Transform =
428 -- A tor-style UID is one of the following form: 428 -- A tor-style UID is one of the following form:
429 -- 429 --
430 -- > Anonymous <root@HOSTNAME.onion> 430 -- > Anonymous <root@HOSTNAME.onion>
431 | DeleteSubKey String 431 | DeleteSubkeyByFingerprint String
432 -- ^ Delete the subkey specified by the given fingerprint and any 432 -- ^ Delete the subkey specified by the given fingerprint and any
433 -- associated signatures on that key. 433 -- associated signatures on that key.
434 deriving (Eq,Ord,Show) 434 deriving (Eq,Ord,Show)
@@ -2687,7 +2687,7 @@ resolveTransform Autosign rt kd@(KeyData k ksigs umap submap) = ops
2687 gs = groupBy sameMaster (sortBy (comparing code) bindings') 2687 gs = groupBy sameMaster (sortBy (comparing code) bindings')
2688 2688
2689 2689
2690resolveTransform (DeleteSubKey fp) rt kd@(KeyData k ksigs umap submap) = fmap (SubKeyDeletion topk) subk 2690resolveTransform (DeleteSubkeyByFingerprint fp) rt kd@(KeyData k ksigs umap submap) = fmap (SubKeyDeletion topk) subk
2691 where 2691 where
2692 topk = keykey $ packet k -- key to master of key to be deleted 2692 topk = keykey $ packet k -- key to master of key to be deleted
2693 subk = do 2693 subk = do