elm-foldp.elm

import Signal exposing (..)
import Window exposing (..)
import Mouse exposing (..)
import Graphics.Element exposing (..)

type Input = Win (Int, Int) | Move (Int, Int) | NoOp

type alias Model = { input: Input }

initModel : Model
initModel = { input = NoOp }

update : Input -> Model -> Model
update input model = { model | input = input }

main =
  mergeMany
      [ map Win dimensions
      , map Move position
      ]
    |> foldp update initModel
    |> map show