summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--KeyRing.hs16
1 files changed, 0 insertions, 16 deletions
diff --git a/KeyRing.hs b/KeyRing.hs
index 4daa566..b6cdd75 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -1358,22 +1358,6 @@ runKeyRing operation = do
1358 guard (null $ selfsigs) 1358 guard (null $ selfsigs)
1359 signatures_over new_sig 1359 signatures_over new_sig
1360 return kd { rentryUids = Map.adjust f uid (rentryUids kd) } 1360 return kd { rentryUids = Map.adjust f uid (rentryUids kd) }
1361 -- Maybe SignatureOver -> KeyData
1362 -- build keydata from pgpSign result
1363 --error "todo"
1364 -- NOTEs
1365 --
1366{-
1367makeInducerSig
1368 :: Packet
1369 -> Packet -> Packet -> [SignatureSubpacket] -> SignatureOver
1370makeInducerSig topk wkun uid extras
1371 = CertificationSignature (secretToPublic topk)
1372 uid
1373 (sigpackets 0x13
1374 subpackets
1375 subpackets_unh)
1376-}
1377 in Traversable.mapM (\kd -> foldM perform kd (kManip operation rt kd)) db 1361 in Traversable.mapM (\kd -> foldM perform kd (kManip operation rt kd)) db
1378 1362
1379{- 1363{-