StartApp-Boilerplate.elm

import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import StartApp
import Effects exposing (Never)
import Task
import Signal

app =
  StartApp.start
    { init = init
    , view = view
    , update = update
    , inputs = [  ]
    }

main =
  app.html

type alias Model =
  { message : String }

init =
  ({ message = "Hello world!" }, Effects.none)

view address model =
  div [] [ text model.message ]

type Action
  = NoOp

update action model =
  case action of
    NoOp -> (model, Effects.none)

port tasks : Signal (Task.Task Never ())
port tasks =
  app.tasks