summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2020-05-03 14:55:28 -0400
committerJoe Crayne <joe@jerkface.net>2020-05-03 14:55:28 -0400
commit322404eb315352084b403a8643d5285b67aedd90 (patch)
treed46b99fa159c5a1004513e6cb04c1858da23f4c1 /lib/Kiki.hs
parent2ee8f6b4aa5b773f8f2d9756965e7c9246b72292 (diff)
Updated cryptonomic hostname for sshfp.
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r--lib/Kiki.hs2
1 files changed, 1 insertions, 1 deletions
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
580 Just (RSAKey (MPI n) (MPI e)) -> do 580 Just (RSAKey (MPI n) (MPI e)) -> do
581 let blob = SSH.sshrsa e n 581 let blob = SSH.sshrsa e n
582 sha1 = C.hashlazy blob :: C.Digest C.SHA1 582 sha1 = C.hashlazy blob :: C.Digest C.SHA1
583 Char8.fromStrict (convertToBase Base16 sha1) <> ".ssh.cryptonomic.net" 583 Char8.fromStrict (convertToBase Base16 sha1) <> ".ssh-rsa.cryptonomic.net"
584 Nothing -> "" 584 Nothing -> ""
585 585
586peerConnectionName :: Peer -> Char8.ByteString 586peerConnectionName :: Peer -> Char8.ByteString