@@ -524,7 +524,7 @@ handleIncomingMessages node = go initConnectionState
524524 . (incomingFrom theirAddr ^: Set.insert cid)
525525 $ st
526526 )
527− else invalidRequest cid st
527+ else invalidRequest cid st ("unsupported reliability: "++show rel)
528528 NT.Received cid payload ->
529529 case st ^. incomingAt cid of
530530 Just (_, ToProc pid weakQueue) -> do
@@ -557,7 +557,7 @@ handleIncomingMessages node = go initConnectionState
557557 Just proc ->
558558 go (incomingAt cid ^= Just (src, ToProc pid (processWeakQ proc)) $ st)
559559 Nothing ->
560− invalidRequest cid st
560+ invalidRequest cid st "unknown local process id"
561561 SendPortIdentifier chId -> do
562562 let lcid = sendPortLocalId chId
563563 lpid = processLocalId (sendPortProcessId chId)
@@ -569,19 +569,19 @@ handleIncomingMessages node = go initConnectionState
569569 Just channel ->
570570 go (incomingAt cid ^= Just (src, ToChan channel) $ st)
571571 Nothing ->
572− invalidRequest cid st
572+ invalidRequest cid st "unknown channel"
573573 Nothing ->
574− invalidRequest cid st
574+ invalidRequest cid st "unknown process id"
575575 NodeIdentifier nid ->
576576 if nid == localNodeId node
577577 then go (incomingAt cid ^= Just (src, ToNode) $ st)
578− else invalidRequest cid st
578+ else invalidRequest cid st "invalid node id"
579579 Nothing ->
580− invalidRequest cid st
580+ invalidRequest cid st "invalid request target"
581581 NT.ConnectionClosed cid ->
582582 case st ^. incomingAt cid of
583583 Nothing ->
584− invalidRequest cid st
584+ invalidRequest cid st "closed unknown connection id"
585585 Just (src, _) -> do
586586 trace node (MxDisconnected cid src)
587587 go ( (incomingAt cid ^= Nothing)
@@ -612,13 +612,13 @@ handleIncomingMessages node = go initConnectionState
612612 -- and we just give up
613613 fail "Cloud Haskell fatal error: received unexpected multicast"
614614
615− invalidRequest :: NT.ConnectionId -> ConnectionState -> IO ()
616− invalidRequest cid st = do
615+ invalidRequest :: NT.ConnectionId -> ConnectionState -> String -> IO ()
616+ invalidRequest cid st msg = do
617617 -- TODO: We should treat this as a fatal error on the part of the remote
618618 -- node. That is, we should report the remote node as having died, and we
619619 -- should close incoming connections (this requires a Transport layer
620620 -- extension).
621− traceEventFmtIO node "" [(TraceStr " [network] invalid request: "),
621+ traceEventFmtIO node "" [(TraceStr $ " [network] invalid request ("++msg++"): "),
622622 (Trace cid)]
623623 go ( incomingAt cid ^= Nothing
624624 $ st