@@ -22,6 +22,7 @@ module Reflex.Query.Base
2222import Control.Applicative (liftA2)
2323import Control.Monad.Exception
2424import Control.Monad.Fix
25+import Control.Monad.Primitive
2526import Control.Monad.Reader
2627import Control.Monad.Ref
2728import Control.Monad.State.Strict
@@ -244,6 +245,10 @@ instance (Reflex t, MonadFix m, Group q, Additive q, Query q, MonadHold t m, Adj
244245instance MonadTrans (QueryT t q) where
245246 lift = QueryT . lift . lift . lift
246247
248+instance PrimMonad m => PrimMonad (QueryT t q m) where
249+ type PrimState (QueryT t q m) = PrimState m
250+ primitive = lift . primitive
251+
247252instance PostBuild t m => PostBuild t (QueryT t q m) where
248253 getPostBuild = lift getPostBuild
249254