@@ -516,7 +516,8 @@ handleIncomingMessages node = go initConnectionState
516516 . (incomingFrom theirAddr ^: Set.insert cid)
517517 $ st
518518 )
519− else invalidRequest cid st ("unsupported reliability: "++show rel)
519+ else invalidRequest cid st $
520+ "attempt to connect with unsupported reliability " ++ show rel
520521 NT.Received cid payload ->
521522 case st ^. incomingAt cid of
522523 Just (_, ToProc pid weakQueue) -> do
@@ -549,7 +550,9 @@ handleIncomingMessages node = go initConnectionState
549550 Just proc ->
550551 go (incomingAt cid ^= Just (src, ToProc pid (processWeakQ proc)) $ st)
551552 Nothing ->
552− invalidRequest cid st "unknown local process id"
553+ invalidRequest cid st $
554+ "incoming attempt to connect to unknown process "
555+ ++ show pid
553556 SendPortIdentifier chId -> do
554557 let lcid = sendPortLocalId chId
555558 lpid = processLocalId (sendPortProcessId chId)
@@ -561,19 +564,28 @@ handleIncomingMessages node = go initConnectionState
561564 Just channel ->
562565 go (incomingAt cid ^= Just (src, ToChan channel) $ st)
563566 Nothing ->
564− invalidRequest cid st "unknown channel"
567+ invalidRequest cid st $
568+ "incoming attempt to connect to unknown channel of"
569+ ++ " process " ++ show (sendPortProcessId chId)
565570 Nothing ->
566− invalidRequest cid st "unknown process id"
571+ invalidRequest cid st $
572+ "incoming attempt to connect to channel of unknown"
573+ ++ " process " ++ show (sendPortProcessId chId)
567574 NodeIdentifier nid ->
568575 if nid == localNodeId node
569576 then go (incomingAt cid ^= Just (src, ToNode) $ st)
570− else invalidRequest cid st "invalid node id"
577+ else invalidRequest cid st $
578+ "incoming attempt to connect to a different node -"
579+ ++ " I'm " ++ show (localNodeId node)
580+ ++ " but the remote peer wants to connect to "
581+ ++ show nid
571582 Nothing ->
572− invalidRequest cid st "invalid request target"
583+ invalidRequest cid st
584+ "message received from an unknown connection"
573585 NT.ConnectionClosed cid ->
574586 case st ^. incomingAt cid of
575587 Nothing ->
576− invalidRequest cid st "closed unknown connection id"
588+ invalidRequest cid st "closed unknown connection"
577589 Just (src, _) -> do
578590 trace node (MxDisconnected cid src)
579591 go ( (incomingAt cid ^= Nothing)
@@ -610,8 +622,10 @@ handleIncomingMessages node = go initConnectionState
610622 -- node. That is, we should report the remote node as having died, and we
611623 -- should close incoming connections (this requires a Transport layer
612624 -- extension).
613− traceEventFmtIO node "" [(TraceStr $ " [network] invalid request ("++msg++"): "),
614− (Trace cid)]
625+ traceEventFmtIO node "" [ TraceStr $ " [network] invalid request"
626+ ++ " (" ++ msg ++ "): "
627+ , (Trace cid)
628+ ]
615629 go ( incomingAt cid ^= Nothing
616630 $ st
617631 )