put all the names into ssh known hosts

1 files changed, 8 insertions, 3 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 80f79b3..9832ef9 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -336,7 +336,7 @@ importAndRefresh root cmn cipher = do
 
 data Peer =
   Peer
-    { peerContactName :: UidHostname
+    { peerContactName :: ()
     , peerHostnames :: Hostnames
     , addr :: SockAddr
     , kd :: KeyData
@@ -458,6 +458,9 @@ generateHostsFile fw rt      = do
     KikiResult _ report <- runKeyRing op
     outputReport report
 
+allNames :: Hostnames -> [Char8.ByteString]
+allNames (Hostnames _ ns os cs) = ns ++ os ++ (maybe [] return cs)
+
 getSshKnownHosts :: Peer -> Char8.ByteString
 getSshKnownHosts peer@Peer{kd} = Char8.unlines taggedblobs
   where
@@ -465,7 +468,9 @@ getSshKnownHosts peer@Peer{kd} = Char8.unlines taggedblobs
     sshs :: [Packet]
     sshs         = sortOn (Down . timestamp) $ getSubkeys CrossSigned their_master (keySubKeys $ kd) "ssh-server"
     blobs        = mapMaybe sshblobFromPacketL sshs
-    taggedblobs  = map ((coerce (peerContactName peer) <> " ") <>) blobs
+    taggedblobs  = do
+      n <- allNames $ peerHostnames peer
+      map ((coerce n <> " ") <>) blobs
 
 data MyIdentity = MyIdentity {
   myGpgAddress :: SockAddr,
@@ -558,7 +563,7 @@ chooseOneName _ = Nothing
 listPeers :: KeyRingRuntime -> [Peer]
 listPeers rt = map conv . filter notme . mapMaybe namedContact . Map.elems . byKeyKey . rtKeyDB $ rt
   where
-    conv             = \(a,b,c,d) -> Peer a b c d
+    conv             = \(a,b,c,d) -> Peer () b c d
     kk               = keykey (fromJust $ rtWorkingKey rt)
     notme (_,_,_,kd) = keykey (keyPacket kd) /= kk
     namedContact kd  = do