foldp.elm

import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)


type alias Model = String

type Action
  = NoOp
  | Show Model


initialModel : Model
initialModel =
  "Hello"


actions : Signal.Mailbox Action
actions =
  Signal.mailbox (Show "WE WILL NEVER SEE THIS")


update : Action -> Model -> Model
update action model =
  case action of
    NoOp ->
      "Waiting..."
    
    Show m ->
      m


model : Signal Model
model =
  Signal.foldp update initialModel actions.signal
  

view : Signal.Address Action -> Model -> Html
view address model =
  div []
  [ text model
  , button [ onClick address (Show "Clicked!") ] [ text "Press me" ] 
  ]


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