boilerplate/elm/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

module Main exposing (main)

import Browser
import Html exposing (..)
import Landing
import Login
import State


subscriptions : State.Model -> Sub State.Msg
subscriptions model =
    Sub.none


view : State.Model -> Html State.Msg
view model =
    case model.view of
        State.Landing ->
            Landing.render model

        State.Login ->
            Login.render model


main =
    Browser.element
        { init = \() -> ( State.init, Cmd.none )
        , subscriptions = subscriptions
        , update = State.update
        , view = view
        }