Simple-WithoutStartApp.elm

import Signal
import Html exposing (..)
import Html.Events exposing (..)

type Action
  = NoOp

type alias Model =
  { message : String }

init : Model
init =
  { message = "Hello world!" }

actions : Signal.Mailbox Action
actions =
  Signal.mailbox NoOp

update : Action -> Model -> Model
update action model =
  case action of
    NoOp -> model

model =
  Signal.foldp update init actions.signal

main =
  Signal.map (view actions.address) model

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