@@ -30,6 +30,9 @@ module Reflex.Requester.Base
3030 , forRequesterData
3131 , requesterDataToList
3232 , singletonRequesterData
33+ , multiEntry
34+ , unMultiEntry
35+ , requesting'
3336 ) where
3437
3538import Reflex.Class
@@ -44,6 +47,7 @@ import Reflex.TriggerEvent.Class
4447import Control.Applicative (liftA2)
4548import Control.Monad.Exception
4649import Control.Monad.Identity
50+import Control.Monad.Primitive
4751import Control.Monad.Reader
4852import Control.Monad.Ref
4953import Control.Monad.State.Strict
@@ -244,6 +248,10 @@ deriving instance MonadHold t m => MonadHold t (RequesterT t request response m)
244248deriving instance PostBuild t m => PostBuild t (RequesterT t request response m)
245249deriving instance TriggerEvent t m => TriggerEvent t (RequesterT t request response m)
246250
251+instance PrimMonad m => PrimMonad (RequesterT t request response m) where
252+ type PrimState (RequesterT t request response m) = PrimState m
253+ primitive = lift . primitive
254+
247255-- TODO: Monoid and Semigroup can likely be derived once StateT has them.
248256instance (Monoid a, Monad m) => Monoid (RequesterT t request response m a) where
249257 mempty = pure mempty