diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-05-03 14:55:28 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-05-03 14:55:28 -0400 |
| commit | 322404eb315352084b403a8643d5285b67aedd90 (patch) | |
| tree | d46b99fa159c5a1004513e6cb04c1858da23f4c1 /lib/Kiki.hs | |
| parent | 2ee8f6b4aa5b773f8f2d9756965e7c9246b72292 (diff) | |
Updated cryptonomic hostname for sshfp.
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 |