diff options
author | joe <joe@jerkface.net> | 2016-04-25 20:31:06 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-04-25 20:31:06 -0400 |
commit | 1bac5f8f59ee84cbd0ec674323236e1c22c1bbc0 (patch) | |
tree | 4151a53faa0e11a5a69f6b7e30413b002f20c828 /lib | |
parent | 6860098ed8f8b56eb5058e0c9c427abaa57021bf (diff) |
DeleteSubKey renamed to DeleteSubkeyByFingerprint.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/KeyRing.hs | 4 |
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 | ||
2690 | resolveTransform (DeleteSubKey fp) rt kd@(KeyData k ksigs umap submap) = fmap (SubKeyDeletion topk) subk | 2690 | resolveTransform (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 |