read conn networkStatus

src/Simplex/Chat/Controller.hs

@@ -777,6 +777,7 @@ data ChatResponse
 
 data DebugConnectionStatus = DebugConnectionStatus
   { deliveryStatus :: Maybe AgentDeliveryStatus,
+    networkStatus :: Maybe NetworkStatus,
     -- from agent's TRecvQ via rcvId
     inActive :: Bool, -- should the delivery work right now?
     inPending :: Bool, -- is there a temporary error?
@@ -792,9 +793,6 @@ data DebugConnectionStatus = DebugConnectionStatus
   }
   deriving (Show)
 
--- XXX: attach NetworkConfig ?
--- TransportSessionMode ?
-
 -- some of these can only be used as command responses
 allowRemoteEvent :: ChatResponse -> Bool
 allowRemoteEvent = \case