@@ -115,8 +115,8 @@ newEventWithTriggerRef = do
115115--------------------------------------------------------------------------------
116116
117117instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ReaderT r m) where
118− newEventWithTrigger initializer = do
119− lift $ newEventWithTrigger initializer
118+ newEventWithTrigger = lift . newEventWithTrigger
119+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
120120
121121instance MonadReflexHost t m => MonadReflexHost t (ReaderT r m) where
122122 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -125,6 +125,7 @@ instance MonadReflexHost t m => MonadReflexHost t (ReaderT r m) where
125125
126126instance (MonadReflexCreateTrigger t m, Monoid w) => MonadReflexCreateTrigger t (WriterT w m) where
127127 newEventWithTrigger = lift . newEventWithTrigger
128+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
128129
129130instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (WriterT w m) where
130131 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -133,6 +134,7 @@ instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (WriterT w m) wher
133134
134135instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (StateT s m) where
135136 newEventWithTrigger = lift . newEventWithTrigger
137+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
136138
137139instance MonadReflexHost t m => MonadReflexHost t (StateT s m) where
138140 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -141,6 +143,7 @@ instance MonadReflexHost t m => MonadReflexHost t (StateT s m) where
141143
142144instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ContT r m) where
143145 newEventWithTrigger = lift . newEventWithTrigger
146+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
144147
145148instance MonadReflexHost t m => MonadReflexHost t (ContT r m) where
146149 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -149,6 +152,7 @@ instance MonadReflexHost t m => MonadReflexHost t (ContT r m) where
149152
150153instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ExceptT e m) where
151154 newEventWithTrigger = lift . newEventWithTrigger
155+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
152156
153157instance MonadReflexHost t m => MonadReflexHost t (ExceptT e m) where
154158 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -157,6 +161,7 @@ instance MonadReflexHost t m => MonadReflexHost t (ExceptT e m) where
157161
158162instance (MonadReflexCreateTrigger t m, Monoid w) => MonadReflexCreateTrigger t (RWST r w s m) where
159163 newEventWithTrigger = lift . newEventWithTrigger
164+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
160165
161166instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (RWST r w s m) where
162167 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a