git.iko.soy/reflex
on develop help sign in
rename requestEnvelopesToList to requestEnvelopesToDSums
d1539afJoe Betz
src/Reflex/Requester/Base.hs+1−1
compare with develop
unifiedsplit
@@ -11,7 +11,7 @@ module Reflex.Requester.Base
11-- , RequesterDataKey
11-- , RequesterDataKey
12 , traverseRequesterData
12 , traverseRequesterData
13 , forRequesterData
13 , forRequesterData
14− , requestEnvelopesToList
14+ , requestEnvelopesToDSums
15 , singletonRequestData
15 , singletonRequestData
16 , singletonResponseData
16 , singletonResponseData
17 , matchResponsesWithRequests
17 , matchResponsesWithRequests
src/Reflex/Requester/Base/Internal.hs+3−3
@@ -265,7 +265,7 @@ matchResponsesWithRequests f send recv = withTagGen $ \tagGen -> mdo
265 , Map Int rawRequest )
265 , Map Int rawRequest )
266 -- A map of requests expecting responses, and the tagged raw requests
266 -- A map of requests expecting responses, and the tagged raw requests
267 processOutgoing eventOutgoingRequest = flip pushAlways eventOutgoingRequest $ \(RequestData _ requestEnvelopes) -> do
267 processOutgoing eventOutgoingRequest = flip pushAlways eventOutgoingRequest $ \(RequestData _ requestEnvelopes) -> do
268− let results = ffor (requestEnvelopesToList requestEnvelopes) $ \(k :=> v) ->
268+ let results = ffor (requestEnvelopesToDSums requestEnvelopes) $ \(k :=> v) ->
269 let (rawRequest, responseDecoder) = f v
269 let (rawRequest, responseDecoder) = f v
270 in (tagId k, rawRequest, Decoder k responseDecoder)
270 in (tagId k, rawRequest, Decoder k responseDecoder)
271 let patchWaitingFor = PatchMap $ Map.fromList $ (\(n, _, dec) -> (n, Just dec)) <$> results
271 let patchWaitingFor = PatchMap $ Map.fromList $ (\(n, _, dec) -> (n, Just dec)) <$> results
@@ -295,8 +295,8 @@ matchResponsesWithRequests f send recv = withTagGen $ \tagGen -> mdo
295 , PatchMap $ Map.singleton n Nothing
295 , PatchMap $ Map.singleton n Nothing
296 )
296 )
297
297
298−requestEnvelopesToList :: forall s request. NonEmptyDeferred (RequestEnvelope s request) -> [DSum (Tag s) request]
298+requestEnvelopesToDSums :: forall s request. NonEmptyDeferred (RequestEnvelope s request) -> [DSum (Tag s) request]
299−requestEnvelopesToList requestEnvelopes = catMaybes $ f <$> NonEmptyDeferred.toList requestEnvelopes
299+requestEnvelopesToDSums requestEnvelopes = catMaybes $ f <$> NonEmptyDeferred.toList requestEnvelopes
300 where f :: (RequestEnvelope s request) -> Maybe (DSum (Tag s) request)
300 where f :: (RequestEnvelope s request) -> Maybe (DSum (Tag s) request)
301 f (RequestEnvelope (Just tag) v) = Just (tag :=> v)
301 f (RequestEnvelope (Just tag) v) = Just (tag :=> v)
302 f (RequestEnvelope Nothing _) = Nothing
302 f (RequestEnvelope Nothing _) = Nothing