@@ -265,7 +265,7 @@ matchResponsesWithRequests f send recv = withTagGen $ \tagGen -> mdo
265265 , Map Int rawRequest )
266266 -- A map of requests expecting responses, and the tagged raw requests
267267 processOutgoing eventOutgoingRequest = flip pushAlways eventOutgoingRequest $ \(RequestData _ requestEnvelopes) -> do
268− let results = ffor (requestEnvelopesToList requestEnvelopes) $ \(k :=> v) ->
268+ let results = ffor (requestEnvelopesToDSums requestEnvelopes) $ \(k :=> v) ->
269269 let (rawRequest, responseDecoder) = f v
270270 in (tagId k, rawRequest, Decoder k responseDecoder)
271271 let patchWaitingFor = PatchMap $ Map.fromList $ (\(n, _, dec) -> (n, Just dec)) <$> results
@@ -295,8 +295,8 @@ matchResponsesWithRequests f send recv = withTagGen $ \tagGen -> mdo
295295 , PatchMap $ Map.singleton n Nothing
296296 )
297297
298−requestEnvelopesToList :: forall s request. NonEmptyDeferred (RequestEnvelope s request) -> [DSum (Tag s) request]
299−requestEnvelopesToList requestEnvelopes = catMaybes $ f <$> NonEmptyDeferred.toList requestEnvelopes
298+requestEnvelopesToDSums :: forall s request. NonEmptyDeferred (RequestEnvelope s request) -> [DSum (Tag s) request]
299+requestEnvelopesToDSums requestEnvelopes = catMaybes $ f <$> NonEmptyDeferred.toList requestEnvelopes
300300 where f :: (RequestEnvelope s request) -> Maybe (DSum (Tag s) request)
301301 f (RequestEnvelope (Just tag) v) = Just (tag :=> v)
302302 f (RequestEnvelope Nothing _) = Nothing