1 open Hito_persistence 2 include Sqlite_repo 3 4 let create () = 5 match 6 Lwt_main.run 7 (Sqlite_repo.connect 8 ~pool_config: 9 (Caqti_pool_config.create ~max_size:1 ~max_idle_size:1 10 ~max_idle_age:None ~max_use_count:None ()) 11 "sqlite3::memory:") 12 with 13 | Ok repo -> repo 14 | Error error -> 15 failwith 16 (Printf.sprintf "cannot open test database: %s" (Caqti_error.show error)) 17