elm template

main.elm

import Html exposing(..)

main =
  Html.program
    { init = init,
      view = view,
      update = update,
      subscriptions = subscriptions
    }



--model

type alias Model =
  { state : Int
  }


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


--update

type Msg
  = Function



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



--subscriptions

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



--view

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