Test.elm

module Test where


import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import StartApp.Simple as StartApp


type Action = Update String


actions = Signal.map Update updateText


port updateText : Signal String


initialModel =
    { text = "Hello from Elm!"
    }


update action model =
    case action of
        Update txt ->
            { model | text <- txt }
        _ -> model


view address model =
    h1 [id "id", class "class", onClick address (Update "Changed!")] [text model.text]


main =
    StartApp.start
        { model = initialModel
        , view = view
        , update = update
        }