Mailboxes in Elm

Mailbox.elm

import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)


view : Signal.Address String -> String -> Html
view address message =
  div []
    [ input
        [ type' "string",
          placeholder "input",
          name "points",
          on "input" targetValue (\v -> Signal.message address v)
        ]
        [ ],
      p [ ] [ text ("Input: " ++ message)]
    ]

inbox : Signal.Mailbox String
inbox =
  Signal.mailbox ""

main : Signal Html
main =
  Signal.map (view inbox.address) inbox.signal