1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 02ac397..870bbba 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -580,8 +580,8 @@ sshKeyToHostname sshkey = do
   case rsaKeyFromPacket sshkey of
     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-rsa.cryptonomic.net"
+            sum = C.hashlazy blob :: C.Digest C.SHA256
+        Char8.fromStrict (convertToBase Base16 sum) <> ".ssh-rsa.cryptonomic.net"
     Nothing   -> ""
 
 peerConnectionName :: Peer -> Char8.ByteString