Main.elm template

Main.elm

import Html.App
import Html exposing (div, Html)

main : Program Never
main = Html.App.program { init = init, view = view, update = update, subscriptions = subscriptions }

type alias Model = Int

type Msg = None

init : (Model, Cmd Msg)
init =
    (0, Cmd.none)

view : Model -> Html Msg
view model =
    div [] []

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

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