:set -XRecordWildCards

data Arg = Arg () Bool

f x = Arg {..}