- match sth#fetch1 () with
- | [ `Int version; (`String _ | `Null) as stats_page ] ->
- let stats_page =
- match stats_page with `String s -> Some s | `Null -> None in
- version, stats_page
- | _ -> assert false in
+ 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