diff mbox series

[bug#70245,2/2] store: database: Use correct function name in assertion.

Message ID 7ccff5eb36b8ffe0713660f843165677447e1023.1712435265.git.koszko@koszko.org
State New
Headers show
Series Finalize renaming of `sqlite-register' (fix `guix system init') | expand

Commit Message

Wojtek Kosior April 6, 2024, 8:37 p.m. UTC 
* guix/store/database.scm (register-valid-path): Replace "sqlite-register"
  with "register-valid-path" as argument to `assert-integer'.

Change-Id: Id93687e90d0a806d715006ca0b2498a1d10cfba6
---
 guix/store/database.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)
diff mbox series

Patch

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 @@  (define* (register-valid-path db #:key path (references '())
     (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)))