diff options
author | Caleb Ristvedt <caleb.ristvedt@cune.org> | 2019-01-30 17:03:38 -0600 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-03-07 00:00:18 +0100 |
commit | a4678c6ba18d8dbd79d931f80426eebf61be7ebe (patch) | |
tree | 166c4efbfaf969347d350d3a2938e4ec366fa61d /.dir-locals.el | |
parent | 274fa491001c365cf704beb6ec9e7697df663252 (diff) | |
download | patches-a4678c6ba18d8dbd79d931f80426eebf61be7ebe.tar patches-a4678c6ba18d8dbd79d931f80426eebf61be7ebe.tar.gz |
database: Make 'register-items' transactional.
* guix/store/database.scm (SQLITE_BUSY, register-output-sql): New variables.
(add-references): Don't try finalizing after each use, only after all the
uses (otherwise a finalized statement would be used if #:cache? was #f).
(call-with-transaction): New procedure.
(register-items): Use call-with-transaction to prevent broken intermediate
states from being visible.
* .dir-locals.el (call-with-transaction): indent it.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to '.dir-locals.el')
-rw-r--r-- | .dir-locals.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 593c767d2b..550e06ef09 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -79,6 +79,7 @@ (eval . (put 'with-extensions 'scheme-indent-function 1)) (eval . (put 'with-database 'scheme-indent-function 2)) + (eval . (put 'call-with-transaction 'scheme-indent-function 2)) (eval . (put 'call-with-container 'scheme-indent-function 1)) (eval . (put 'container-excursion 'scheme-indent-function 1)) |