restore forRequesterData
commitddf6544398fb0c25b10f317f9b0003821e42c7ac
authorJoe Betz <joebetz91@gmail.com>
dateTue 7 Jan 2020, 18:30 (7 years ago)
parentc6982fb
src/Reflex/Requester/Base.hs+1−1
@@ -10,7 +10,7 @@ module Reflex.Requester.Base
1010-- , RequesterData
1111-- , RequesterDataKey
1212 , traverseRequesterData
13−-- , forRequesterData
13+ , forRequesterData
1414-- , requesterDataToList
1515-- , singletonRequesterData
1616-- , matchResponsesWithRequests
src/Reflex/Requester/Base/Internal.hs+4
@@ -64,6 +64,10 @@ traverseRequesterData f (RequestData tg es) = ResponseData tg . TagMap.fromList
6464 Just t -> Just . (t :=>) <$> f req
6565 Nothing -> Nothing <$ f req
6666
67+-- | 'traverseRequesterData' with its arguments flipped
68+forRequesterData :: forall request response m. Applicative m => RequestData (PrimState m) request -> (forall a. request a -> m (response a)) -> m (ResponseData (PrimState m) response)
69+forRequesterData r f = traverseRequesterData f r
70+
6771runRequesterT :: forall t request response m a
6872 . ( Reflex t
6973 , PrimMonad m