diff options
| author | Wojtek Kosior <koszko@koszko.org> | 2024-04-06 22:37:07 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-07 19:07:15 +0100 |
| commit | a3c28d7f7eeaf799c8f043848dbb59198649e1ac (patch) | |
| tree | 4af1d4302d977c0871ca93694fac3201ed5a27fc /guix | |
| parent | 78390634d76c0c75c6e93742fa7caec965194641 (diff) | |
| download | guix-a3c28d7f7eeaf799c8f043848dbb59198649e1ac.tar guix-a3c28d7f7eeaf799c8f043848dbb59198649e1ac.tar.gz | |
scripts: system: Rename `sqlite-register'.
* guix/scripts/system.scm (define-module): #:autoload `register-valid-path'
instead of `sqlite-register'.
(copy-item): Call it with the new name.
Change-Id: I24f71f822a5f400a47adee43f61184a4fbcb9741
Signed-off-by: Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/system.scm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index bf3d2f9044..67020a2aab 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -35,7 +35,7 @@ #:use-module (guix store) #:autoload (guix base16) (bytevector->base16-string) #:autoload (guix store database) - (sqlite-register store-database-file call-with-database) + (register-valid-path store-database-file call-with-database) #:autoload (guix build store-copy) (copy-store-item) #:use-module (guix describe) #:use-module (guix gexp) @@ -158,14 +158,15 @@ given INFO, a <path-info> record." (copy-store-item item target #:deduplicate? #t) - (sqlite-register db - #:path item - #:references (path-info-references info) - #:deriver (path-info-deriver info) - #:hash (string-append - "sha256:" - (bytevector->base16-string (path-info-hash info))) - #:nar-size (path-info-nar-size info)))) + (register-valid-path db + #:path item + #:references (path-info-references info) + #:deriver (path-info-deriver info) + #:hash (string-append + "sha256:" + (bytevector->base16-string + (path-info-hash info))) + #:nar-size (path-info-nar-size info)))) (define* (copy-closure item target #:key (log-port (current-error-port))) |