- 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 ] ->
+ let stats_page =
+ match stats_page with `String s -> Some s | `Null -> None in
+ version, stats_page
+ | _ -> assert false)
+ with
+ Not_found -> default in