------------------------------------------------------------------------------
bindInit :: WidgetState -> ProfileState
bindInit (AuthenticationState state) =
  ProfileInit state
bindInit :: WidgetState -> ProfileState
bindInit (AuthenticationState state) =
  ProfileInit state
bindInit (AuthenticationState state) =
  ProfileInit state