Corrected tag ssh-host to ssh-server for ssh self-auth UID.

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index a1727e7..bbe73f8 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -82,7 +82,7 @@ subkeysForDomain "onion" subs = do
         maybeToList $ derToBase32 <$> derRSA sub
 subkeysForDomain "ssh-rsa.cryptonomic.net" subs = do
         (code,(top,sub), kind, hashed,claimants) <- subs
-        guard ("ssh-host" `elem` kind)
+        guard ("ssh-server" `elem` kind)
         guard (code .&. 0x2 /= 0)
         RSAKey (MPI n) (MPI e) <- maybeToList $ rsaKeyFromPacket sub
         let blob = SSH.sshrsa e n