cleanup some remark cruft

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
                                                 guard (null $ selfsigs)
                                                 signatures_over new_sig
                                         return kd { rentryUids = Map.adjust f uid (rentryUids kd) }
-                    -- Maybe SignatureOver -> KeyData
-                    -- build keydata from pgpSign result
-                    --error "todo"
-                    -- NOTEs
-                    --
-{-
-makeInducerSig
-  :: Packet
-     -> Packet -> Packet -> [SignatureSubpacket] -> SignatureOver
-makeInducerSig topk wkun uid extras
-    = CertificationSignature (secretToPublic topk)
-                             uid
-                             (sigpackets 0x13
-                                         subpackets
-                                         subpackets_unh)
--}
                 in Traversable.mapM (\kd -> foldM perform kd (kManip operation rt kd)) db
 
 {-