aboutsummaryrefslogtreecommitdiff
path: root/build-aux/update-guix-package.scm
diff options
context:
space:
mode:
Diffstat (limited to 'build-aux/update-guix-package.scm')
-rw-r--r--build-aux/update-guix-package.scm17
1 files changed, 13 insertions, 4 deletions
diff --git a/build-aux/update-guix-package.scm b/build-aux/update-guix-package.scm
index d45c183914..9598872dfd 100644
--- a/build-aux/update-guix-package.scm
+++ b/build-aux/update-guix-package.scm
@@ -124,10 +124,19 @@ COMMIT."
;; on a private branch.
(reload-module
(resolve-module '(gnu packages package-management)))
- (pk source
- (add-to-store store
- (origin-file-name (package-source guix))
- #t "sha256" source)))))
+
+ (let* ((source (add-to-store store
+ (origin-file-name (package-source guix))
+ #t "sha256" source))
+ (root (store-path-package-name source)))
+
+ ;; 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)
+
+ (format #t "source code for commit ~a: ~a (GC root: ~a)~%"
+ commit source root)))))
((commit)
;; Automatically deduce the version and revision numbers.
(main commit #f))))