summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'kiki.hs')
-rw-r--r--kiki.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/kiki.hs b/kiki.hs
index a8f1bc6..fb4b878 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1218,6 +1218,7 @@ kiki "show" args = do
1218 , ("--pem",1) 1218 , ("--pem",1)
1219 , ("--dns",1) 1219 , ("--dns",1)
1220 , ("--ssh",1) 1220 , ("--ssh",1)
1221 , ("--sshfp",1)
1221 , ("--wip",1) 1222 , ("--wip",1)
1222 , ("--cert",1) 1223 , ("--cert",1)
1223 , ("--torhash",1) 1224 , ("--torhash",1)
@@ -1270,6 +1271,7 @@ kiki "show" args = do
1270 ,("--pem",\[x] -> show_pem x $ fromMaybe "" grip) 1271 ,("--pem",\[x] -> show_pem x $ fromMaybe "" grip)
1271 ,("--dns",\[x] -> show_dns x $ fromMaybe "" grip) 1272 ,("--dns",\[x] -> show_dns x $ fromMaybe "" grip)
1272 ,("--ssh",\[x] -> show_ssh x $ fromMaybe "" grip) 1273 ,("--ssh",\[x] -> show_ssh x $ fromMaybe "" grip)
1274 ,("--sshfp",\[x] -> show_sshfp x $ fromMaybe "" grip)
1273 ,("--wip",\[x] -> show_wip x $ fromMaybe "" grip) 1275 ,("--wip",\[x] -> show_wip x $ fromMaybe "" grip)
1274 ,("--cert",\[x] -> show_cert x $ fromMaybe "" grip) 1276 ,("--cert",\[x] -> show_cert x $ fromMaybe "" grip)
1275 ,("--torhash",\[x] -> show_torhash x) 1277 ,("--torhash",\[x] -> show_torhash x)