@@ -341,6 +341,9 @@ instance (Monad m, RouteToUrl r m) => RouteToUrl r (SetRouteT t r' m) where
341instance (Monad m, RouteToUrl r m) => RouteToUrl r (RoutedT t r' m) where
341instance (Monad m, RouteToUrl r m) => RouteToUrl r (RoutedT t r' m) where
342 askRouteToUrl = lift askRouteToUrl
342 askRouteToUrl = lift askRouteToUrl
344+instance (Monad m, RouteToUrl r m) => RouteToUrl r (RequesterT t req rsp m) where
345+ askRouteToUrl = lift askRouteToUrl
344instance HasJSContext m => HasJSContext (RouteToUrlT r m) where
347instance HasJSContext m => HasJSContext (RouteToUrlT r m) where
345 type JSContextPhantom (RouteToUrlT r m) = JSContextPhantom m
348 type JSContextPhantom (RouteToUrlT r m) = JSContextPhantom m
346 askJSContext = lift askJSContext
349 askJSContext = lift askJSContext