Add Elm boilerplate to project

Create a top-level client directory to store my Elm boilerplate.
This commit is contained in:
William Carroll 2020-07-29 09:51:18 +01:00
parent cf6c8799ab
commit 289cae2528
11 changed files with 180 additions and 0 deletions

31
client/src/Main.elm Normal file
View file

@ -0,0 +1,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
}