diff --git a/src/db.ml b/src/db.ml index 29d42b0..e9d24c8 100644 --- a/src/db.ml +++ b/src/db.ml @@ -11,9 +11,6 @@ let db = Filename.concat db_root "permap.db" let random_state = Random.State.make_self_init () -let with_db ?mode ?mutex ?cache ?vfs ?timeout f = - Sqlite3_utils.with_db ?mode ?mutex ?cache ?vfs ?timeout db f - module Db = ( val Caqti_blocking.connect (Uri.of_string ("sqlite3://" ^ db)) |> Caqti_blocking.or_fail ) diff --git a/src/dune b/src/dune index 7b1c56c..09e07d5 100644 --- a/src/dune +++ b/src/dune @@ -26,7 +26,6 @@ emile omd safepass - sqlite3_utils lambdasoup) (preprocess (pps lwt_ppx)))