client/src/Main.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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

module Main exposing (main)

import Admin
import Browser
import Html exposing (..)
import Login
import Manager
import State
import Url
import User


viewForRoute : State.Route -> (State.Model -> Html State.Msg)
viewForRoute route =
    case route of
        State.Login ->
            Login.render

        State.UserHome ->
            User.render

        State.ManagerHome ->
            Manager.render

        State.AdminHome ->
            Admin.render


view : State.Model -> Browser.Document State.Msg
view model =
    { title = "TripPlanner"
    , body =
        [ case ( model.session, model.route ) of
            -- Redirect to /login when someone is not authenticated.
            -- TODO(wpcarro): We should ensure that /login shows in the URL
            -- bar.
            ( Nothing, _ ) ->
                Login.render model

            ( Just session, Nothing ) ->
                Login.render model

            -- Authenticated
            ( Just session, Just route ) ->
                if State.isAuthorized session.role route then
                    viewForRoute route model

                else
                    text "Access denied. You are not authorized to be here. Evacuate the area immediately"
        ]
    }


main =
    Browser.application
        { init = State.init
        , onUrlChange = State.UrlChanged
        , onUrlRequest = State.LinkClicked
        , subscriptions = \_ -> Sub.none
        , update = State.update
        , view = view
        }