@@ -176,19 +176,13 @@ instance (Monad m, MonadQuery t vs m) => MonadQuery t vs (RoutedT t r m) where
176176 askQueryResult = lift askQueryResult
177177 queryIncremental = lift . queryIncremental
178178
179−instance (Monad m, RouteToUrl r m) => RouteToUrl r (QueryT t q m) where
180− askRouteToUrl = lift askRouteToUrl
179+instance (Monad m, RouteToUrl r m) => RouteToUrl r (QueryT t q m)
181180
182−instance (Monad m, SetRoute t r m) => SetRoute t r (QueryT t q m) where
183− setRoute = lift . setRoute
184− modifyRoute = lift . modifyRoute
181+instance (Monad m, SetRoute t r m) => SetRoute t r (QueryT t q m)
185182
186−instance (Monad m, RouteToUrl r m) => RouteToUrl r (EventWriterT t w m) where
187− askRouteToUrl = lift askRouteToUrl
183+instance (Monad m, RouteToUrl r m) => RouteToUrl r (EventWriterT t w m)
188184
189−instance (Monad m, SetRoute t r m) => SetRoute t r (EventWriterT t w m) where
190− setRoute = lift . setRoute
191− modifyRoute = lift . modifyRoute
185+instance (Monad m, SetRoute t r m) => SetRoute t r (EventWriterT t w m)
192186
193187runRoutedT :: RoutedT t r m a -> Dynamic t r -> m a
194188runRoutedT = runReaderT . unRoutedT
@@ -319,9 +313,7 @@ instance Requester t m => Requester t (SetRouteT t r m) where
319313 requesting = SetRouteT . requesting
320314 requesting_ = SetRouteT . requesting_
321315
322−instance (Monad m, SetRoute t r m) => SetRoute t r (RequesterT t req rsp m) where
323− setRoute = lift . setRoute
324− modifyRoute = lift . modifyRoute
316+instance (Monad m, SetRoute t r m) => SetRoute t r (RequesterT t req rsp m)
325317
326318#ifndef ghcjs_HOST_OS
327319deriving instance MonadJSM m => MonadJSM (SetRouteT t r m)
@@ -383,8 +375,7 @@ instance (Monad m, RouteToUrl r m) => RouteToUrl r (RoutedT t r' m) where
383375
384376instance (Monad m, RouteToUrl r m) => RouteToUrl r (ReaderT r' m) where
385377
386−instance (Monad m, RouteToUrl r m) => RouteToUrl r (RequesterT t req rsp m) where
387− askRouteToUrl = lift askRouteToUrl
378+instance (Monad m, RouteToUrl r m) => RouteToUrl r (RequesterT t req rsp m)
388379
389380instance HasJSContext m => HasJSContext (RouteToUrlT r m) where
390381 type JSContextPhantom (RouteToUrlT r m) = JSContextPhantom m