@@ -161,6 +161,13 @@ instance (Monad m, MonadQuery t vs m) => MonadQuery t vs (RoutedT t r m) where
161161 askQueryResult = lift askQueryResult
162162 queryIncremental = lift . queryIncremental
163163
164+instance (Monad m, RouteToUrl r m) => RouteToUrl r (QueryT t q m) where
165+ askRouteToUrl = lift askRouteToUrl
166+
167+instance (Monad m, SetRoute t r m) => SetRoute t r (QueryT t q m) where
168+ setRoute = lift . setRoute
169+ modifyRoute = lift . modifyRoute
170+
164171runRoutedT :: RoutedT t r m a -> Dynamic t r -> m a
165172runRoutedT = runReaderT . unRoutedT
166173