view : Model -> Html Msg
view model =
    let
        viewGuest subModel page toMsg content =
            case model.session of
                Page.Guest guest ->
                    Html.map toMsg (content guest subModel)
                        |> Page.viewGuest GotPageMsg page guest

                Page.LoggedIn _ ->
                    text ""

        viewLoggedIn subModel page toMsg content =
            case model.session of
                Page.Guest _ ->
                    text ""

                Page.LoggedIn loggedIn ->
                    Html.map toMsg (content loggedIn subModel)
                        |> Page.viewLoggedIn GotPageMsg page loggedIn

        viewPage guestPage loggedInPage toMsg content =
            case model.session of
                Page.Guest guest ->
                    Html.map toMsg content
                        |> Page.viewGuest GotPageMsg guestPage guest

                Page.LoggedIn loggedIn ->
                    Html.map toMsg content
                        |> Page.viewLoggedIn GotPageMsg loggedInPage loggedIn

        dashboardView =
            Dashboard.view { tagger = GotDashboardMsg, showFeedback = ShowFeedback }

    in
    case model.status of
        Dashboard subModel ->
            viewLoggedIn subModel LoggedIn.Dashboard GotDashboardMsg dashboardView