- match sth#fetch1 () with
- [ `Binary data; `String mime_type; `Bool deleted ] ->
- data, mime_type, deleted
- | _ -> assert false in
+ try
+ (match sth#fetch1 () with
+ [ `Binary data; `String mime_type; `Bool deleted ] ->
+ data, mime_type, deleted
+ | _ -> assert false)
+ with
+ Not_found -> raise (HttpError cHTTP_NOT_FOUND) in