@@ -341,6 +341,9 @@ instance (Monad m, RouteToUrl r m) => RouteToUrl r (SetRouteT t r' m) where
341341instance (Monad m, RouteToUrl r m) => RouteToUrl r (RoutedT t r' m) where
342342 askRouteToUrl = lift askRouteToUrl
343343
344+instance (Monad m, RouteToUrl r m) => RouteToUrl r (RequesterT t req rsp m) where
345+ askRouteToUrl = lift askRouteToUrl
346+
344347instance HasJSContext m => HasJSContext (RouteToUrlT r m) where
345348 type JSContextPhantom (RouteToUrlT r m) = JSContextPhantom m
346349 askJSContext = lift askJSContext