about summary refs log blame commit diff
path: root/client/src/User.elm
blob: 7139d20283686390978e7e30623312d98ef228a5 (plain) (tree)






































                                                            
module User exposing (render)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Maybe.Extra
import RemoteData
import State
import Tailwind
import UI
import Utils


render : State.Model -> Html State.Msg
render model =
    div
        [ class
            ([ "container"
             , "mx-auto"
             , "text-center"
             ]
                |> Tailwind.use
            )
        ]
        [ UI.header 2 ("Welcome, " ++ model.username ++ "!")
        , UI.simpleButton
            { label = "Logout"
            , handleClick = State.AttemptLogout
            }
        , case model.logoutError of
            Nothing ->
                text ""

            Just e ->
                UI.errorBanner
                    { title = "Error logging out"
                    , body = Utils.explainHttpError e
                    }
        ]