@@ -34,6 +34,7 @@ import Reflex.TriggerEvent.Class
3434
3535import Control.Monad.Exception
3636import Control.Monad.Identity
37+import Control.Monad.Primitive
3738import Control.Monad.Reader
3839import Control.Monad.Ref
3940import Control.Monad.State.Strict
@@ -266,6 +267,10 @@ instance (MonadQuery t q m, Monad m) => MonadQuery t q (EventWriterT t w m) wher
266267 askQueryResult = lift askQueryResult
267268 queryIncremental = lift . queryIncremental
268269
270+instance PrimMonad m => PrimMonad (EventWriterT t w m) where
271+ type PrimState (EventWriterT t w m) = PrimState m
272+ primitive = lift . primitive
273+
269274-- | Map a function over the output of a 'EventWriterT'.
270275withEventWriterT :: (Semigroup w, Semigroup w', Reflex t, MonadHold t m)
271276 => (w -> w')