Fix a couple of instances for QueryT and EventWriterT
commit50305c797c41a27660b74f543e204e902c086bbf
authorLuigy Leon <luigy@outlook.com>
dateTue 13 Jun 2017, 12:27 (9 years ago)
parentaad7445
src/Reflex/EventWriter.hs+1−1
@@ -172,7 +172,7 @@ instance MonadReflexCreateTrigger t m => MonadReflexCreateTrigger t (EventWriter
172172 newEventWithTrigger = lift . newEventWithTrigger
173173 newFanEventWithTrigger f = lift $ newFanEventWithTrigger f
174174
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
176176 tellQueryIncremental = lift . tellQueryIncremental
177177 askQueryResult = lift askQueryResult
178178 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
260260 type Response (QueryT t q m) = Response m
261261 withRequesting f = QueryT $ withRequesting $ unQueryT . f
262262
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
264264 tellEvent = lift . tellEvent