me
/
guix
Archived
1
0
Fork 0
Code

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>
master
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))
;; 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)))