no-controlled-components.elm

import Html exposing (Html, Attribute, text, div, input)
import Html.App exposing (beginnerProgram)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput, on)
import String

main =
  beginnerProgram { model = "", view = view, update = update }


-- UPDATE

type Msg
  = NewContent String
  | NoOp

update msg oldContent =
  case msg of
    NewContent content ->
      content
    NoOp ->
      oldContent

-- VIEW

view content =
  input [ type' "number", onInput handleInput, value content ] []

handleInput : String -> Msg
handleInput s =
    if String.length s <= 2 then NewContent s else NoOp