ghc-exactprint-1.3.0: tests/examples/ghc92/Records2.hs

module Records where

data Record = Record
  { rOne :: Int
  , rTwo :: String
  }

defR :: Record
defR = Record 1 "record"

main :: IO ()
main = do
  print $ defR { rOne = 42 + 12 }
  print $ Record { rTwo = "foo" ++ "foo" }