git.iko.soy/patch
on develop help sign in
Add MonadQuery instance for EventWriterT and EventWriter instance for QueryT.
commitaad744559f9bb1e58e7d7db8aeed1288503c50bf authorLuigy Leon <luigy@outlook.com> dateMon 12 Jun 2017, 23:50 (9 years ago) parent13e71e8
2 files changed+9
compare with develop
unifiedsplit
src/Reflex/EventWriter.hs+6 src/Reflex/Query/Base.hs+3
src/Reflex/EventWriter.hs+6
@@ -25,6 +25,7 @@ import Reflex.Class
2525import Reflex.Host.Class
2626import Reflex.PerformEvent.Class
2727import Reflex.PostBuild.Class
28+import Reflex.Query.Class
2829import Reflex.Requester.Class
2930import Reflex.TriggerEvent.Class
3031
@@ -170,3 +171,8 @@ instance MonadAtomicRef m => MonadAtomicRef (EventWriterT t w m) where
170171instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (EventWriterT t w m) where
171172 newEventWithTrigger = lift . newEventWithTrigger
172173 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
174+
175+instance (MonadQuery t q m, Monad m) => MonadQuery t q (EventWriterT t q m) where
176+ tellQueryIncremental = lift . tellQueryIncremental
177+ askQueryResult = lift askQueryResult
178+ queryIncremental = lift . queryIncremental
src/Reflex/Query/Base.hs+3
@@ -259,3 +259,6 @@ instance Requester t m => Requester t (QueryT t q m) where
259259 type Request (QueryT t q m) = Request m
260260 type Response (QueryT t q m) = Response m
261261 withRequesting f = QueryT $ withRequesting $ unQueryT . f
262+
263+instance EventWriter t w m => EventWriter t w (QueryT t w m) where
264+ tellEvent = lift . tellEvent