- try
- (match sth#fetch1 () with
- | [ `Int version; (`String _ | `Null) as stats_page;
- (`String _ | `Null) as crash_email ] ->
- let stats_page =
- match stats_page with `String s -> Some s | `Null -> None in
- let crash_email =
- match crash_email with `String s -> Some s | `Null -> None in
- version, stats_page, crash_email
- | _ -> assert false)
- with
- Not_found -> default in
- sth#finish ();