me/guix
Archived
1
0
Fork 0
Code Activity

store: database: Use correct function name in assertion.

Browse source 
* 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>
This commit is contained in:
Wojtek Kosior 2024-04-06 22:37:08 +02:00 • committed by Christopher Baines
parent a3c28d7f7e
commit c3dfb14f9b
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/store/database.scm
View file

@ -247,8 +247,9 @@ Every store item in REFERENCES must already be registered."
(time-second time)) (time-second time))
;; Make sure NAR-SIZE is valid. ;; Make sure NAR-SIZE is valid.
(assert-integer "sqlite-register" positive? #:nar-size nar-size) (assert-integer "register-valid-path" positive? #:nar-size nar-size)
(assert-integer "sqlite-register" (cut >= <> 0) #:time registration-time) (assert-integer "register-valid-path" (cut >= <> 0)
#:time registration-time)
(define id (define id
(let ((existing-id (valid-path-id db path))) (let ((existing-id (valid-path-id db path)))