diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-29 19:58:56 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-29 19:58:56 +0100 |
| commit | f1ef9b26d41e2d30d03479a74d5608cf69044d38 (patch) | |
| tree | 7e1eb6ed1a200164c2bc33521260f193f5668d13 /nar-herder/cached-compression.scm | |
| parent | efaf8fa580ad197d74ff375ca50bddf9c8ac3a86 (diff) | |
| download | nar-herder-f1ef9b26d41e2d30d03479a74d5608cf69044d38.tar nar-herder-f1ef9b26d41e2d30d03479a74d5608cf69044d38.tar.gz | |
Insert cached narinfo files in a transaction
As this handles the database being busy.
Diffstat (limited to 'nar-herder/cached-compression.scm')
| -rw-r--r-- | nar-herder/cached-compression.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm index 8527889..9982387 100644 --- a/nar-herder/cached-compression.scm +++ b/nar-herder/cached-compression.scm @@ -549,11 +549,14 @@ (let ((bytes (stat:size (stat dest-filename)))) - (database-insert-cached-narinfo-file + (database-call-with-transaction database - narinfo-id - bytes - (symbol->string target-compression)) + (lambda _ + (database-insert-cached-narinfo-file + database + narinfo-id + bytes + (symbol->string target-compression)))) (log-msg 'DEBUG "created " dest-filename) |