Elm record usage example

elm-records.elm

import Graphics.Element exposing (show)

type Foo = A { x : Int, y : String }
         | B { x : Int, m : Float }

f : Foo -> Foo
f foo =
  let
     incr v = { v | x = v.x + 1 }
  in 
    case foo of
    A v -> A (incr v)
    B v -> B (incr v)

main =
  A { x = 3, y = "blah" } |> f |> show