git.iko.soy/patch
on develop help sign in
Fix a couple of instances for QueryT and EventWriterT
50305c7Luigy Leon
src/Reflex/EventWriter.hs+1−1
compare with develop
unifiedsplit
@@ -172,7 +172,7 @@ instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (EventWriter
172 newEventWithTrigger = lift . newEventWithTrigger
172 newEventWithTrigger = lift . newEventWithTrigger
173 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
173 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
174
174
175−instance (MonadQuery t q m, Monad m) => MonadQuery t q (EventWriterT t q m) where
175+instance (MonadQuery t q m, Monad m) => MonadQuery t q (EventWriterT t w m) where
176 tellQueryIncremental = lift . tellQueryIncremental
176 tellQueryIncremental = lift . tellQueryIncremental
177 askQueryResult = lift askQueryResult
177 askQueryResult = lift askQueryResult
178 queryIncremental = lift . queryIncremental
178 queryIncremental = lift . queryIncremental
src/Reflex/Query/Base.hs+1−1
@@ -260,5 +260,5 @@ instance Requester t m => Requester t (QueryT t q m) where
260 type Response (QueryT t q m) = Response m
260 type Response (QueryT t q m) = Response m
261 withRequesting f = QueryT $ withRequesting $ unQueryT . f
261 withRequesting f = QueryT $ withRequesting $ unQueryT . f
262
262
263−instance EventWriter t w m => EventWriter t w (QueryT t w m) where
263+instance EventWriter t w m => EventWriter t w (QueryT t q m) where
264 tellEvent = lift . tellEvent
264 tellEvent = lift . tellEvent