ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define registration-time
(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)))