-- | Return a record where all fields are _|_
emptyRecord :: forall a. Data a => RecordT a -> a
emptyRecord = fromConstr . constr
emptyRecord :: forall a. Data a => RecordT a -> a
emptyRecord = fromConstr . constr
emptyRecord = fromConstr . constr