summaryrefslogtreecommitdiff
path: root/build-aux/update-guix-package.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-12-07 14:16:07 +0100
committerLudovic Courtès <ludo@gnu.org>2018-12-07 15:14:12 +0100
commit6eac835f178c0c78637b0db8a4585a617b2f7622 (patch)
tree52c2fcaf3ef21158557202a892a4b0c44bfd11ed /build-aux/update-guix-package.scm
parented9c8eb4e5f4ab5d51e3bb27ccb17bd5b43bb803 (diff)
downloadpatches-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.scm5
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)))))