| No_such_index
| Bad_table_error
| GENERIC_ERROR of string
-exception Error
+exception Error of string
let profiler = HExtlib.profile "mysql"
| Some dbd ->
try
Some (profiler.HExtlib.profile (Mysql.exec dbd) s)
- with Mysql.Error _ -> raise Error
+ with Mysql.Error s -> raise (Error s)
let map res ~f =
match res with