@@ -168,6 +168,13 @@ instance (Monad m, SetRoute t r m) => SetRoute t r (QueryT t q m) where
168168 setRoute = lift . setRoute
169169 modifyRoute = lift . modifyRoute
170170
171+instance (Monad m, RouteToUrl r m) => RouteToUrl r (EventWriterT t w m) where
172+ askRouteToUrl = lift askRouteToUrl
173+
174+instance (Monad m, SetRoute t r m) => SetRoute t r (EventWriterT t w m) where
175+ setRoute = lift . setRoute
176+ modifyRoute = lift . modifyRoute
177+
171178runRoutedT :: RoutedT t r m a -> Dynamic t r -> m a
172179runRoutedT = runReaderT . unRoutedT
173180