------------------------------------------------------------------------------
routePath :: forall t m. (
    SupportsServantReflex t m
  , MonadWidget t m
  ) => Maybe (Behavior t WidgetState) -> Behavior t (Maybe ProfileState) -> Route -> m (Event t Route, Event t ProfileState)
routePath (Just bhSuperEvent) _ ProfileRoute =
  overviewLayout (bindInit <$> bhSuperEvent)
routePath :: forall t m. (
    SupportsServantReflex t m
  , MonadWidget t m
  ) => Maybe (Behavior t WidgetState) -> Behavior t (Maybe ProfileState) -> Route -> m (Event t Route, Event t ProfileState)
routePath (Just bhSuperEvent) _ ProfileRoute =
  overviewLayout (bindInit <$> bhSuperEvent)
routePath (Just bhSuperEvent) _ ProfileRoute =
  overviewLayout (bindInit <$> bhSuperEvent)