ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/RecordUpdate.hs

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

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