019f8fd211
git-subtree-dir: users/wpcarro git-subtree-mainline:464bbcb15cgit-subtree-split:24f5a642afChange-Id: I6105b3762b79126b3488359c95978cadb3efa789
31 lines
563 B
Elm
31 lines
563 B
Elm
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
|
|
}
|