2 files changed, 2 insertions, 2 deletions
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.