From 44171adeafa7c479726a37fa11a77b787e676a32 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Mon, 1 Jul 2019 13:50:01 -0400
Subject: Removed big ugly signatures comment.

---
 kiki.hs | 58 ----------------------------------------------------------
 1 file changed, 58 deletions(-)

diff --git a/kiki.hs b/kiki.hs
index 63c9f02..7ede17b 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -80,64 +80,6 @@ import FunctorToMaybe
 -- {-# ANN module ("HLint: ignore Eta reduce"::String) #-}
 -- {-# ANN module ("HLint: ignore Use camelCase"::String) #-}
 
-{-
- -
- -
-    accBindings :: forall t a a1 a2.
-                   Bits t =>
-                   [(t, (Packet, Packet), [a], [a1], [a2])]
-                   -> [(t, (Packet, Packet), [a], [a1], [a2])]
-    bitcoinAddress :: Word8 -> Packet -> String
-    cannonical_eckey :: forall b b1.
-                        (Integral b1, Integral b) =>
-                        b -> b1 -> [Word8]
-    commands :: [(String, String)]
-    decode_sshrsa :: Char8.ByteString -> Maybe RSAPublicKey
-    disjoint_fp :: [Packet] -> [[Packet]]
-    doAutosign :: forall t. t -> KeyData -> [PacketUpdate]
-    fpmatch :: Maybe [Char] -> Packet -> Bool
-    getBindings :: [Packet]
-                   -> ([([Packet], [SignatureOver])],
-                       [(Word8,
-                         (Packet, Packet),
-                         [String],
-                         [SignatureSubpacket],
-                         [Packet])])
-    isCertificationSig :: SignatureOver -> Bool
-    isSubkeySignature :: SignatureOver -> Bool
-    kiki :: forall a.
-            (Eq a, IsString a) =>
-            a -> [[Char]] -> IO ()
-    kiki_sync_help :: IO ()
-    listKeys :: [Packet] -> [Char]
-    listKeysFiltered :: [[Char]] -> [Packet] -> [Char]
-    :Main.main :: IO ()
-    main :: IO ()
-    partitionStaticArguments :: forall a.
-                                Ord a =>
-                                [(a, Int)] -> [a] -> ([[a]], [a])
-    readPublicKey :: Char8.ByteString -> RSAPublicKey
-    show_all :: KeyDB -> IO ()
-    show_id :: forall t.
-                String -> t -> Map.Map KeyRing.KeyKey KeyData -> IO ()
-    show_pem :: String -> String -> KeyDB -> IO ()
-    show_ssh :: String -> String -> KeyDB -> IO ()
-    show_whose_key :: Maybe RSAPublicKey -> KeyDB -> IO ()
-    show_wip :: String -> String -> KeyDB -> IO ()
-    show_wk :: FilePath
-               -> Maybe [Char] -> Map.Map KeyRing.KeyKey KeyData -> IO ()
-    smallpr :: Packet -> [Char]
-    sshrsa :: Integer -> Integer -> Char8.ByteString
-    toLast :: forall x. (x -> x) -> [x] -> [x]
-    verifyBindings :: [Packet]
-                      -> [Packet] -> ([SignatureOver], [SignatureOver])
-    warn :: String -> IO ()
-    whoseKey :: RSAPublicKey -> KeyDB -> [KeyData]
- -
- -
- -}
-
-
 isCertificationSig :: SignatureOver -> Bool
 isCertificationSig (CertificationSignature {}) = True
 isCertificationSig _                           = True
-- 
cgit v1.2.3