commits in between.

2026-06-29 09:29:12 +02:00
parent 156177cd5d
commit 93982d6630
2 changed files with 14 additions and 0 deletions
@@ -20,6 +20,7 @@
         ks-keys-raw
         ks-key-count
         ks-transaction
+         ks-commit
         )

 (define-struct keystore
@@ -116,6 +117,12 @@
         (query-exec (keystore-dbh ks) "COMMIT")
         r)))))

+(define/contract (ks-commit ks)
+  (-> keystore? boolean?)
+  (query-exec (keystore-dbh ks) "COMMIT")
+  (query-exec (keystore-dbg ks) "BEGIN")
+  #t)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal working
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;