summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-07-01 13:50:01 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-01 13:50:01 -0400
commit44171adeafa7c479726a37fa11a77b787e676a32 (patch)
treeff06267a1f1262462d0fdb83071e55ce09b5a796
parente454eea330d68636a34c31990b64a5c166f52c31 (diff)
Removed big ugly signatures comment.
-rw-r--r--kiki.hs58
1 files changed, 0 insertions, 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
80-- {-# ANN module ("HLint: ignore Eta reduce"::String) #-} 80-- {-# ANN module ("HLint: ignore Eta reduce"::String) #-}
81-- {-# ANN module ("HLint: ignore Use camelCase"::String) #-} 81-- {-# ANN module ("HLint: ignore Use camelCase"::String) #-}
82 82
83{-
84 -
85 -
86 accBindings :: forall t a a1 a2.
87 Bits t =>
88 [(t, (Packet, Packet), [a], [a1], [a2])]
89 -> [(t, (Packet, Packet), [a], [a1], [a2])]
90 bitcoinAddress :: Word8 -> Packet -> String
91 cannonical_eckey :: forall b b1.
92 (Integral b1, Integral b) =>
93 b -> b1 -> [Word8]
94 commands :: [(String, String)]
95 decode_sshrsa :: Char8.ByteString -> Maybe RSAPublicKey
96 disjoint_fp :: [Packet] -> [[Packet]]
97 doAutosign :: forall t. t -> KeyData -> [PacketUpdate]
98 fpmatch :: Maybe [Char] -> Packet -> Bool
99 getBindings :: [Packet]
100 -> ([([Packet], [SignatureOver])],
101 [(Word8,
102 (Packet, Packet),
103 [String],
104 [SignatureSubpacket],
105 [Packet])])
106 isCertificationSig :: SignatureOver -> Bool
107 isSubkeySignature :: SignatureOver -> Bool
108 kiki :: forall a.
109 (Eq a, IsString a) =>
110 a -> [[Char]] -> IO ()
111 kiki_sync_help :: IO ()
112 listKeys :: [Packet] -> [Char]
113 listKeysFiltered :: [[Char]] -> [Packet] -> [Char]
114 :Main.main :: IO ()
115 main :: IO ()
116 partitionStaticArguments :: forall a.
117 Ord a =>
118 [(a, Int)] -> [a] -> ([[a]], [a])
119 readPublicKey :: Char8.ByteString -> RSAPublicKey
120 show_all :: KeyDB -> IO ()
121 show_id :: forall t.
122 String -> t -> Map.Map KeyRing.KeyKey KeyData -> IO ()
123 show_pem :: String -> String -> KeyDB -> IO ()
124 show_ssh :: String -> String -> KeyDB -> IO ()
125 show_whose_key :: Maybe RSAPublicKey -> KeyDB -> IO ()
126 show_wip :: String -> String -> KeyDB -> IO ()
127 show_wk :: FilePath
128 -> Maybe [Char] -> Map.Map KeyRing.KeyKey KeyData -> IO ()
129 smallpr :: Packet -> [Char]
130 sshrsa :: Integer -> Integer -> Char8.ByteString
131 toLast :: forall x. (x -> x) -> [x] -> [x]
132 verifyBindings :: [Packet]
133 -> [Packet] -> ([SignatureOver], [SignatureOver])
134 warn :: String -> IO ()
135 whoseKey :: RSAPublicKey -> KeyDB -> [KeyData]
136 -
137 -
138 -}
139
140
141isCertificationSig :: SignatureOver -> Bool 83isCertificationSig :: SignatureOver -> Bool
142isCertificationSig (CertificationSignature {}) = True 84isCertificationSig (CertificationSignature {}) = True
143isCertificationSig _ = True 85isCertificationSig _ = True