@@ -224,6 +224,7 @@ let is_autoid f = match f.f_info with Internal_autoid -> true | _ -> false (* return index in list or Not_found *) exception Found_item of int +exception Not_found let listi fn l = try ignore(List.fold_left (fun a b -> if fn b then raise (Found_item a) else a+1 lib/sql_types.ml eb3e20e383c24f20c4e70ebd2ef4cffdbd1e63ee Thomas Gazagnaire thomas@gazagnaire.com http://github.com/avsm/ocaml-orm-sqlite/commit/40be9085b2d45ea389e9db37bc0a6602c3fa193e 40be9085b2d45ea389e9db37bc0a6602c3fa193e 2009-10-29T09:26:03-07:00 2009-10-29T09:26:03-07:00 Do not confuse type-conv with an unexpected raising of Not_found. That solve the weird bug when compiling lib_test/bug.ml. Need to continue fixing stuff to be able to compile bug.ml though ... 9fbde18ca5abc00ec1d6f9fb1dcf16fc88c48313 Thomas Gazagnaire thomas@gazagnaire.com