haskell-names-0.9.9.1: tests/annotations/RecordFieldUpdate.hs

{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NamedFieldPuns #-}
module RecordFieldUpdate where
data Record a = Record { field :: a }
record1 field = r
  where r = Record { field = field }
record2 field = r
  where r = Record { field }
record3 field = r
  where r = Record { .. }