diff options
Diffstat (limited to 'client/src/Manager.elm')
-rw-r--r-- | client/src/Manager.elm | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/client/src/Manager.elm b/client/src/Manager.elm new file mode 100644 index 000000000000..b7f36cfd46bb --- /dev/null +++ b/client/src/Manager.elm @@ -0,0 +1,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 + } + ] + ] |