ghc-exactprint-0.5.0.0: tests/examples/ghc710/RecordUpdate.hs

data Foo = F { f1 :: Int, f2 :: String }

foo :: Int -> Foo -> Foo
foo v f = f { f1 = v }