diff options
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r-- | lib/Kiki.hs | 2 |
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 | ||
586 | peerConnectionName :: Peer -> Char8.ByteString | 586 | peerConnectionName :: Peer -> Char8.ByteString |