git.iko.soy/patch
on develop help sign in
Add missing newFanEventWithTrigger methods
4c4ca91Ryan Trinkle
src/Reflex/Host/Class.hs+7−2
compare with develop
unifiedsplit
@@ -115,8 +115,8 @@ newEventWithTriggerRef = do
115--------------------------------------------------------------------------------
115--------------------------------------------------------------------------------
116
116
117instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ReaderT r m) where
117instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ReaderT r m) where
118− newEventWithTrigger initializer = do
118+ newEventWithTrigger = lift . newEventWithTrigger
119− lift $ newEventWithTrigger initializer
119+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
120
120
121instance MonadReflexHost t m => MonadReflexHost t (ReaderT r m) where
121instance MonadReflexHost t m => MonadReflexHost t (ReaderT r m) where
122 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
122 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -125,6 +125,7 @@ instance MonadReflexHost t m => MonadReflexHost t (ReaderT r m) where
125
125
126instance (MonadReflexCreateTrigger t m, Monoid w) => MonadReflexCreateTrigger t (WriterT w m) where
126instance (MonadReflexCreateTrigger t m, Monoid w) => MonadReflexCreateTrigger t (WriterT w m) where
127 newEventWithTrigger = lift . newEventWithTrigger
127 newEventWithTrigger = lift . newEventWithTrigger
128+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
128
129
129instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (WriterT w m) where
130instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (WriterT w m) where
130 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
131 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -133,6 +134,7 @@ instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (WriterT w m) wher
133
134
134instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (StateT s m) where
135instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (StateT s m) where
135 newEventWithTrigger = lift . newEventWithTrigger
136 newEventWithTrigger = lift . newEventWithTrigger
137+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
136
138
137instance MonadReflexHost t m => MonadReflexHost t (StateT s m) where
139instance MonadReflexHost t m => MonadReflexHost t (StateT s m) where
138 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
140 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -141,6 +143,7 @@ instance MonadReflexHost t m => MonadReflexHost t (StateT s m) where
141
143
142instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ContT r m) where
144instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ContT r m) where
143 newEventWithTrigger = lift . newEventWithTrigger
145 newEventWithTrigger = lift . newEventWithTrigger
146+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
144
147
145instance MonadReflexHost t m => MonadReflexHost t (ContT r m) where
148instance MonadReflexHost t m => MonadReflexHost t (ContT r m) where
146 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
149 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -149,6 +152,7 @@ instance MonadReflexHost t m => MonadReflexHost t (ContT r m) where
149
152
150instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ExceptT e m) where
153instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (ExceptT e m) where
151 newEventWithTrigger = lift . newEventWithTrigger
154 newEventWithTrigger = lift . newEventWithTrigger
155+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
152
156
153instance MonadReflexHost t m => MonadReflexHost t (ExceptT e m) where
157instance MonadReflexHost t m => MonadReflexHost t (ExceptT e m) where
154 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
158 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
@@ -157,6 +161,7 @@ instance MonadReflexHost t m => MonadReflexHost t (ExceptT e m) where
157
161
158instance (MonadReflexCreateTrigger t m, Monoid w) => MonadReflexCreateTrigger t (RWST r w s m) where
162instance (MonadReflexCreateTrigger t m, Monoid w) => MonadReflexCreateTrigger t (RWST r w s m) where
159 newEventWithTrigger = lift . newEventWithTrigger
163 newEventWithTrigger = lift . newEventWithTrigger
164+ newFanEventWithTrigger initializer = lift $ newFanEventWithTrigger initializer
160
165
161instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (RWST r w s m) where
166instance (MonadReflexHost t m, Monoid w) => MonadReflexHost t (RWST r w s m) where
162 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a
167 fireEventsAndRead dm a = lift $ fireEventsAndRead dm a