gazagnaire.org / ocaml-sqlite
Minimal SQLite key-value store for OCaml
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

fix(E105): replace catch-all exception handlers with specific exceptions

- Parsing functions (int_of_string, float_of_string, Int64.of_string):
catch Failure _ instead of _
- TLS inhibit/try_write_t: use _exn to name the caught exception
- sql open_or_create: catch Failure _ | Eio.Io _
- run_tests json_equal: catch Failure _ | Invalid_argument _

Thomas Gazagnaire 0240cc13 58cf5485

+1 -1
+1 -1
bin/sql.ml
··· 7 7 (* -- write subcommand -- *) 8 8 9 9 let open_or_create ~sw path = 10 - try Sqlite.open_ ~sw path with _ -> Sqlite.v ~sw path 10 + try Sqlite.open_ ~sw path with Failure _ | Eio.Io _ -> Sqlite.v ~sw path 11 11 12 12 let write_entry t (k, v) = 13 13 Log.info (fun m -> m "put %s=%s" k v);