@@ -175,6 +175,13 @@ instance (Monad m, SetRoute t r m) => SetRoute t r (QueryT t q m) where
175175 setRoute = lift . setRoute
176176 modifyRoute = lift . modifyRoute
177177
178+instance (Monad m, RouteToUrl r m) => RouteToUrl r (EventWriterT t w m) where
179+ askRouteToUrl = lift askRouteToUrl
180+
181+instance (Monad m, SetRoute t r m) => SetRoute t r (EventWriterT t w m) where
182+ setRoute = lift . setRoute
183+ modifyRoute = lift . modifyRoute
184+
178185runRoutedT :: RoutedT t r m a -> Dynamic t r -> m a
179186runRoutedT = runReaderT . unRoutedT
180187