>> +-- >     toJSON (Person name age) = object $ ["name" .= name]
>> +-- >                                       ++ catMaybes ["age" .= age]
> 
> I suspect you meant to use `"age" .=?  age` here.

oh. you are, of course, right.