Minimal SQLite key-value store for OCaml
pds, btree, sqlite: Add opam files, fix formatting, remove unused code
+1
-1
+1
-1
lib/sqlite.ml
+1
-1
lib/sqlite.ml
···
17
17
failwith (Printf.sprintf "SQLite error: %s" (Sqlite3.errmsg db))
18
18
19
19
let create path =
20
-
let path_str = snd (Eio.Path.split path) in
20
+
let path_str = Eio.Path.native_exn path in
21
21
let db = Sqlite3.db_open path_str in
22
22
(* Enable WAL mode for concurrent access *)
23
23
check_rc db (Sqlite3.exec db "PRAGMA journal_mode = WAL");