- [ `String name; (`Null | `String _) as email;
- `Date registration_date; `Bool can_edit; `Bool email_notify ] ->
- let email, has_email =
- match email with
- `Null -> "", false
- | `String email -> email, true in
- name, email, has_email, registration_date,
- can_edit, email_notify