summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
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