daca9f3 · patch · git.iko.soy

git.iko.soy/patch

on develop help sign in

Merge pull request #210 from reflex-frp/queryt-dynamicwriter

daca9f3Ryan Trinkle8 years ago

src/Reflex/DynamicWriter/Base.hs+6

compare with develop

unifiedsplit

@@ -45,6 +45,7 @@ import Reflex.Host.Class

45import qualified Reflex.Patch.MapWithMove as MapWithMove

46import Reflex.PerformEvent.Class

47import Reflex.PostBuild.Class

48+import Reflex.Query.Class

48import Reflex.Requester.Class

49import Reflex.Requester.Class

49import Reflex.TriggerEvent.Class

50import Reflex.TriggerEvent.Class

@@ -220,3 +221,8 @@ instance Requester t m => Requester t (DynamicWriterT t w m) where

220 type Response (DynamicWriterT t w m) = Response m

221 type Response (DynamicWriterT t w m) = Response m

221 requesting = lift . requesting

222 requesting = lift . requesting

222 requesting_ = lift . requesting_

223 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

44import Reflex.Class

45import Reflex.Adjustable.Class

46+import Reflex.DynamicWriter.Class

46import Reflex.EventWriter.Base

47import Reflex.EventWriter.Base

47import Reflex.EventWriter.Class

48import Reflex.EventWriter.Class

48import Reflex.Host.Class

49import Reflex.Host.Class

@@ -340,3 +341,6 @@ instance Requester t m => Requester t (QueryT t q m) where

340

341

341instance EventWriter t w m => EventWriter t w (QueryT t q m) where

342instance EventWriter t w m => EventWriter t w (QueryT t q m) where

342 tellEvent = lift . tellEvent

343 tellEvent = lift . tellEvent

344+

345+instance MonadDynamicWriter t w m => MonadDynamicWriter t w (QueryT t q m) where

346+ tellDyn = lift . tellDyn