Reply to CommInfoRequest with actual open comms

ipython-kernel/src/IHaskell/IPython/Message/Writer.hs

@@ -11,6 +11,7 @@ import           Data.Aeson.Types (Pair)
 import           Data.Map (Map)
 import           Data.Monoid (mempty)
 import           Data.Text (Text, pack)
+import qualified Data.Map               as Map
 import           IHaskell.IPython.Types
 
 instance ToJSON LanguageInfo where
@@ -37,7 +38,7 @@ instance ToJSON Message where
     , commInfo = commInfo
     } =
     object
-      [ "comm_info" .= commInfo ]
+      [ "comms" .= Map.map (\comm -> object ["target_name" .= comm]) commInfo ]
 
   toJSON ExecuteRequest
     { getCode = code

main/Main.hs

@@ -264,10 +264,11 @@ replyTo _ KernelInfoRequest{} replyHeader state =
               })
 
 replyTo _ CommInfoRequest{} replyHeader state =
+  let comms = Map.mapKeys (UUID.uuidToString) (openComms state) in
   return
     (state, CommInfoReply
               { header = replyHeader
-              , commInfo = mempty
+              , commInfo = Map.map (\(Widget w) -> targetName w) comms
               })
 
 -- Reply to a shutdown request by exiting the main thread. Before shutdown, reply to the request to