@@ -287,7 +287,7 @@ matchResponsesWithRequests f send recv = withTagGen $ \tagGen -> mdo
287 processIncoming incWaitingFor tagGen inc = flip push inc $ \(n, rawRsp) -> do
287 processIncoming incWaitingFor tagGen inc = flip push inc $ \(n, rawRsp) -> do
288 waitingFor <- sample $ currentIncremental incWaitingFor
288 waitingFor <- sample $ currentIncremental incWaitingFor
289 case Map.lookup n waitingFor of
289 case Map.lookup n waitingFor of
290− Nothing -> return Nothing -- TODO How should lookup failures be handled here? They shouldn't ever happen..
290+ Nothing -> return $ trace ("processIncoming: lookup failure for response key '" <> show n <> "'") Nothing
291 Just (Decoder tag responseDecoder) ->
291 Just (Decoder tag responseDecoder) ->
292 return $ Just
292 return $ Just
293 ( singletonResponseData tagGen (unsafeTagFromId n) (responseDecoder rawRsp)
293 ( singletonResponseData tagGen (unsafeTagFromId n) (responseDecoder rawRsp)