diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-12-07 14:16:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-12-07 15:14:12 +0100 |
| commit | 6eac835f178c0c78637b0db8a4585a617b2f7622 (patch) | |
| tree | 52c2fcaf3ef21158557202a892a4b0c44bfd11ed /build-aux/update-guix-package.scm | |
| parent | ed9c8eb4e5f4ab5d51e3bb27ccb17bd5b43bb803 (diff) | |
| download | patches-6eac835f178c0c78637b0db8a4585a617b2f7622.tar patches-6eac835f178c0c78637b0db8a4585a617b2f7622.tar.gz | |
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'.
Diffstat (limited to 'build-aux/update-guix-package.scm')
| -rw-r--r-- | build-aux/update-guix-package.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/build-aux/update-guix-package.scm b/build-aux/update-guix-package.scm index 9598872dfd..83f6eca6bb 100644 --- a/build-aux/update-guix-package.scm +++ b/build-aux/update-guix-package.scm @@ -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))))) |