From 322404eb315352084b403a8643d5285b67aedd90 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 3 May 2020 14:55:28 -0400
Subject: Updated cryptonomic hostname for sshfp.

---
 lib/Kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Kiki.hs')

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index e36e41a..ddcaba0 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -580,7 +580,7 @@ sshKeyToHostname sshkey = do
     Just (RSAKey (MPI n) (MPI e)) -> do
         let blob = SSH.sshrsa e n
             sha1 = C.hashlazy blob :: C.Digest C.SHA1
-        Char8.fromStrict (convertToBase Base16 sha1) <> ".ssh.cryptonomic.net"
+        Char8.fromStrict (convertToBase Base16 sha1) <> ".ssh-rsa.cryptonomic.net"
     Nothing   -> ""
 
 peerConnectionName :: Peer -> Char8.ByteString
-- 
cgit v1.2.3