From 8e012f4804ecf1665819e761283120a3c0e73643 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 17 Jan 2025 20:48:43 +0100
Subject: Switched from OUnit to alcotest
---
lib/sql/db.ml | 2 +-
lib/sql/db.mli | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
(limited to 'lib/sql')
diff --git a/lib/sql/db.ml b/lib/sql/db.ml
index 0f06f15..f1aee8c 100644
--- a/lib/sql/db.ml
+++ b/lib/sql/db.ml
@@ -16,7 +16,7 @@ let reset = T.reset
let insert_header = Header.insert_header
let query_headers = Header.query_headers
-let with_db : string -> (Sqlite3.db -> unit T.result) -> unit T.result =
+let with_db : string -> (Sqlite3.db -> 'b T.result) -> 'b T.result =
fun filename f ->
let db = Sqlite3.db_open filename in
diff --git a/lib/sql/db.mli b/lib/sql/db.mli
index 478d762..91933c4 100644
--- a/lib/sql/db.mli
+++ b/lib/sql/db.mli
@@ -3,7 +3,7 @@ module Syntax = ImportConf.Syntax
type 'a t
type 'a result = ('a, exn) Result.t
-val with_db : string -> ('a t -> unit result) -> unit result
+val with_db : string -> ('a t -> 'b result) -> 'b result
val check_table_schema : 'a t -> ImportAnalyser.Dependency.t -> bool result
(** Check if a table with the same structure already exists in the database.
--
cgit v1.2.3