client/src/Manager.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

module Manager exposing (render)

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


render : State.Model -> Html State.Msg
render model =
    case model.session of
        Nothing ->
            text "You are unauthorized to view this page."

        Just session ->
            div
                [ class
                    ([ "container"
                     , "mx-auto"
                     , "text-center"
                     ]
                        |> Tailwind.use
                    )
                ]
                [ h1 []
                    [ UI.header 2 ("Welcome back, " ++ session.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
                                }
                    ]
                ]