yarply

Derp.hs

module Main where

data Foo = Foo 
  { x :: String
  , y :: String
  , z :: String
  } deriving (Show)

q = Foo "one" "two" "three" -- Foo {x = "one", y = "two", z = "three"}

q2 = q { x = "nine" } -- Foo {x = "nine", y = "two", z = "three"}

{-let og = Foo "Original"-}
{-let ns = setBar og "New School"-}