git.iko.soy/reflex
on develop help sign in
restore forRequesterData
ddf6544Joe Betz
src/Reflex/Requester/Base.hs+1−1
compare with develop
unifiedsplit
@@ -10,7 +10,7 @@ module Reflex.Requester.Base
10-- , RequesterData
10-- , RequesterData
11-- , RequesterDataKey
11-- , RequesterDataKey
12 , traverseRequesterData
12 , traverseRequesterData
13−-- , forRequesterData
13+ , forRequesterData
14-- , requesterDataToList
14-- , requesterDataToList
15-- , singletonRequesterData
15-- , singletonRequesterData
16-- , matchResponsesWithRequests
16-- , matchResponsesWithRequests
src/Reflex/Requester/Base/Internal.hs+4
@@ -64,6 +64,10 @@ traverseRequesterData f (RequestData tg es) = ResponseData tg . TagMap.fromList
64 Just t -> Just . (t :=>) <$> f req
64 Just t -> Just . (t :=>) <$> f req
65 Nothing -> Nothing <$ f req
65 Nothing -> Nothing <$ f req
66
66
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+
67runRequesterT :: forall t request response m a
71runRequesterT :: forall t request response m a
68 . ( Reflex t
72 . ( Reflex t
69 , PrimMonad m
73 , PrimMonad m