Elm onKeyPress event

elm-onkeypress.elm

import Char
import Html exposing (..)
import Html.Events exposing (..)
import StartApp.Simple as StartApp
import String

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

type alias Model = String
type alias Action = Int

model : Model
model = "foo"

view : Signal.Address Action -> String -> Html.Html
view address model =
    div []
        [ input [ onKeyPress address identity ] []
        , div [] [ text model ]
        ]

update : Action -> Model -> Model
update action model =
    case action |> Debug.log "action" of
      _ -> model ++ (Char.fromCode action |> String.fromChar)