@@ -40,6 +40,7 @@ import Reflex.Host.Class
4040import Reflex.PerformEvent.Class
4141import Reflex.PostBuild.Class
4242import Reflex.Query.Class
43+import Reflex.Requester.Class
4344import Reflex.TriggerEvent.Class
4445import qualified Reflex.Patch.MapWithMove as MapWithMove
4546
@@ -253,3 +254,8 @@ instance (Monad m, Group q, Additive q, Query q, Reflex t) => MonadQuery t q (Qu
253254 tellQueryIncremental q
254255 r <- askQueryResult
255256 return $ zipDynWith crop (incrementalToDynamic q) r
257+
258+instance Requester t m => Requester t (QueryT t q m) where
259+ type Request (QueryT t q m) = Request m
260+ type Response (QueryT t q m) = Response m
261+ withRequesting f = QueryT $ withRequesting $ unQueryT . f