Browse Source

maint: update-guix-package: Really register GC roots.

Previously we'd pass a relative file name to 'add-indirect-root', which
the daemon would interpret as relative to "/".  Consequently, checkouts
were not protected from GC.

* build-aux/update-guix-package.scm (main): Pass an absolute file name
to 'add-indirect-root'.
gn-latest-20200428
Ludovic Courtès 2 years ago
parent
commit
6eac835f17
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
2 changed files with 6 additions and 5 deletions
  1. +3
    -2
      build-aux/update-guix-package.scm
  2. +3
    -3
      gnu/packages/package-management.scm

+ 3
- 2
build-aux/update-guix-package.scm View File

@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -133,7 +133,8 @@ COMMIT."
;; Add an indirect GC root for SOURCE in the current directory.
(false-if-exception (delete-file root))
(symlink source root)
(add-indirect-root store root)
(add-indirect-root store
(string-append (getcwd) "/" root))

(format #t "source code for commit ~a: ~a (GC root: ~a)~%"
commit source root)))))


+ 3
- 3
gnu/packages/package-management.scm View File

@@ -102,8 +102,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "0.16.0")
(commit "c845323d4b0a31ce5241a9d98187e1eeed43f71c")
(revision 1))
(commit "5227d938e2b7bda22e2a7aa733e1e09a6c726f18")
(revision 2))
(package
(name "guix")

@@ -119,7 +119,7 @@
(commit commit)))
(sha256
(base32
"0i431d5p9ckr7kxfiwpp94wgjgqn6mgyypf0smw64bk635fn6ycr"))
"0v1a99k0qpxa5ksgqqwydd1nb00hkd71fj7374rqhklvk0a2cdz9"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments


Loading…
Cancel
Save