diff options
| author | Wojtek Kosior <koszko@koszko.org> | 2024-04-06 22:37:08 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-07 19:07:26 +0100 |
| commit | c3dfb14f9be7479057036d3fe7744828d2c1a31a (patch) | |
| tree | da2d782a416462057df8bec7eecdf49c8aab0032 | |
| parent | a3c28d7f7eeaf799c8f043848dbb59198649e1ac (diff) | |
| download | guix-c3dfb14f9be7479057036d3fe7744828d2c1a31a.tar guix-c3dfb14f9be7479057036d3fe7744828d2c1a31a.tar.gz | |
store: database: Use correct function name in assertion.
* guix/store/database.scm (register-valid-path): Replace "sqlite-register"
with "register-valid-path" as argument to `assert-integer'.
Change-Id: Id93687e90d0a806d715006ca0b2498a1d10cfba6
Signed-off-by: Christopher Baines <mail@cbaines.net>
| -rw-r--r-- | guix/store/database.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/store/database.scm b/guix/store/database.scm index 58d3871e85..a847f9d2f0 100644 --- a/guix/store/database.scm +++ b/guix/store/database.scm @@ -247,8 +247,9 @@ Every store item in REFERENCES must already be registered." (time-second time)) ;; Make sure NAR-SIZE is valid. - (assert-integer "sqlite-register" positive? #:nar-size nar-size) - (assert-integer "sqlite-register" (cut >= <> 0) #:time registration-time) + (assert-integer "register-valid-path" positive? #:nar-size nar-size) + (assert-integer "register-valid-path" (cut >= <> 0) + #:time registration-time) (define id (let ((existing-id (valid-path-id db path))) |