- match sth#fetch1 () with
- [ `String name; `Null; `Int width; `Int height; `String alt]
- | [ `Null; `String name; `Int width; `Int height; `String alt] ->
- name, width, height, alt
- | _ -> assert false in
+ match rows with
+ | [ Some name, None, width, height, alt]
+ | [ None, Some name, width, height, alt] ->
+ name, width, height, alt
+ | _ -> assert false in