type person = { name : string; age : int option } [@@deriving popper]
Gives:
type person = { name : string; age : int option } [@@deriving popper]
let person_generator =
let+ name = string in
and+ age = option int in
{ name ; age }
let person_comparator = ...
Example:
Gives: