diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-07 19:32:33 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-07 19:32:33 +0100 |
| commit | acd3cb258fe68548b3c14b3b7819a46e2cd2da97 (patch) | |
| tree | 92f5e118945cbd0a6ca0fe546ff96b32a8d38c29 | |
| parent | c3dfb14f9be7479057036d3fe7744828d2c1a31a (diff) | |
| download | guix-acd3cb258fe68548b3c14b3b7819a46e2cd2da97.tar.gz guix-acd3cb258fe68548b3c14b3b7819a46e2cd2da97.zip | |
guix: nar: Update path-id to valid-path-id.
To match the change in (guix store database).
* guix/nar.scm (finalize-store-file): Update path-id to valid-path-id.
Change-Id: I69255c7acc1ea4e4855a4621bfcec54f595dd24d
| -rw-r--r-- | guix/nar.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/nar.scm b/guix/nar.scm index a817b56007..cabcc4bbbf 100644 --- a/guix/nar.scm +++ b/guix/nar.scm @@ -103,11 +103,11 @@ held." (acquire-lock file))))) (with-database %default-database-file db - (unless (path-id db target) + (unless (valid-path-id db target) (let ((lock (and lock? (acquire-lock (string-append target ".lock"))))) - (unless (path-id db target) + (unless (valid-path-id db target) ;; If FILE already exists, delete it (it's invalid anyway.) (when (file-exists? target) (delete-file-recursively target)) |