src/client/elm/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

module Main exposing (..)

import Html exposing (..)
import Model exposing (Model)
import DecodeFlags exposing (Flags, init)

main : Program Flags Model msg
main =
    Html.programWithFlags
        { init = init
        , update = update
        , view = view
        , subscriptions = subscriptions
        }

update : msg -> Model -> ( Model, Cmd msg )
update msg model =
    ( model, Cmd.none )


view : Model -> Html msg
view model =
    text <| toString model


subscriptions : Model -> Sub msg
subscriptions model =
    Sub.none