@@ -22,6 +22,7 @@ module Reflex.Query.Base
22import Control.Applicative (liftA2)
22import Control.Applicative (liftA2)
23import Control.Monad.Exception
23import Control.Monad.Exception
24import Control.Monad.Fix
24import Control.Monad.Fix
25+import Control.Monad.Primitive
25import Control.Monad.Reader
26import Control.Monad.Reader
26import Control.Monad.Ref
27import Control.Monad.Ref
27import Control.Monad.State.Strict
28import Control.Monad.State.Strict
@@ -244,6 +245,10 @@ instance (Reflex t, MonadFix m, Group q, Additive q, Query q, MonadHold t m, Adj
244instance MonadTrans (QueryT t q) where
245instance MonadTrans (QueryT t q) where
245 lift = QueryT . lift . lift . lift
246 lift = QueryT . lift . lift . lift
248+instance PrimMonad m => PrimMonad (QueryT t q m) where
249+ type PrimState (QueryT t q m) = PrimState m
250+ primitive = lift . primitive
247instance PostBuild t m => PostBuild t (QueryT t q m) where
252instance PostBuild t m => PostBuild t (QueryT t q m) where
248 getPostBuild = lift getPostBuild
253 getPostBuild = lift getPostBuild