From 4f0f78cae5f5b45cf42a350ab20974949ab4d648 Mon Sep 17 00:00:00 2001 From: Swrup Date: Thu, 13 Jan 2022 15:11:27 +0100 Subject: [PATCH] remove sqlite3_utils --- src/db.ml | 3 --- src/dune | 1 - 2 files changed, 4 deletions(-) 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)))