@@ -500,10 +500,10 @@ runRouteViewT routeEncoder switchover useHash a = do
500500routeLink
501501 :: forall t m a route.
502502 ( DomBuilder t m
503− , RouteToUrl (R route) m
504− , SetRoute t (R route) m
503+ , RouteToUrl route m
504+ , SetRoute t route m
505505 )
506− => R route -- ^ Target route
506+ => route -- ^ Target route
507507 -> m a -- ^ Child widget
508508 -> m a
509509routeLink r w = do