:set -XRecordWildCards
data Foo = Bar { baz :: Integer } deriving Show
Bar { baz = 42 }