diff options
Diffstat (limited to 'lib/sql/db.ml')
| -rw-r--r-- | lib/sql/db.ml | 2 |
1 files changed, 1 insertions, 1 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 |