git.iko.soy/reflex
on develop help sign in
Merge pull request #210 from reflex-frp/queryt-dynamicwriter

Add MonadDynamicWriter for QueryT and MonadQuery for DynamicWriterT

commitdaca9f31e3b0acb1513e05e1040758202a72c658 authorRyan Trinkle <ryan.trinkle@gmail.com> dateWed 22 Aug 2018, 12:36 (8 years ago) parentae6b5991150ac9
2 files changed+10
compare with develop
unifiedsplit
src/Reflex/DynamicWriter/Base.hs+6 src/Reflex/Query/Base.hs+4
src/Reflex/DynamicWriter/Base.hs+6
@@ -45,6 +45,7 @@ import Reflex.Host.Class
4545import qualified Reflex.Patch.MapWithMove as MapWithMove
4646import Reflex.PerformEvent.Class
4747import Reflex.PostBuild.Class
48+import Reflex.Query.Class
4849import Reflex.Requester.Class
4950import Reflex.TriggerEvent.Class
5051
@@ -220,3 +221,8 @@ instance Requester t m => Requester t (DynamicWriterT t w m) where
220221 type Response (DynamicWriterT t w m) = Response m
221222 requesting = lift . requesting
222223 requesting_ = lift . requesting_
224+
225+instance (MonadQuery t q m, Monad m) => MonadQuery t q (DynamicWriterT t w m) where
226+ tellQueryIncremental = lift . tellQueryIncremental
227+ askQueryResult = lift askQueryResult
228+ queryIncremental = lift . queryIncremental
src/Reflex/Query/Base.hs+4
@@ -43,6 +43,7 @@ import Data.These
4343
4444import Reflex.Class
4545import Reflex.Adjustable.Class
46+import Reflex.DynamicWriter.Class
4647import Reflex.EventWriter.Base
4748import Reflex.EventWriter.Class
4849import Reflex.Host.Class
@@ -340,3 +341,6 @@ instance Requester t m => Requester t (QueryT t q m) where
340341
341342instance EventWriter t w m => EventWriter t w (QueryT t q m) where
342343 tellEvent = lift . tellEvent
344+
345+instance MonadDynamicWriter t w m => MonadDynamicWriter t w (QueryT t q m) where
346+ tellDyn = lift . tellDyn