From 1c6b2d3f980bf8cc39ec703fb1a45f2b42ac135c Mon Sep 17 00:00:00 2001
From: Chris Marusich <cmmarusich@gmail.com>
Date: Mon, 3 Apr 2017 23:47:22 -0700
Subject: build: Export register-root procedure.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* guix/scripts/build.scm: Export register-root procedure.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
guix/scripts/build.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'guix/scripts/build.scm')
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index 68402fda18..ba47b1232d 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -51,7 +51,8 @@
options->transformation
show-transformation-options-help
- guix-build))
+ guix-build
+ register-root))
(define %default-log-urls
;; Default base URLs for build logs.
--
cgit v1.2.3
From a09b45da6fe951112eb30da5feb0f86266f8ba8a Mon Sep 17 00:00:00 2001
From: Chris Marusich <cmmarusich@gmail.com>
Date: Tue, 4 Apr 2017 20:24:54 -0700
Subject: build: Add and export procedure 'register-root*'.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* guix/scripts/build.scm (register-root*): Add and export it.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
guix/scripts/build.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
(limited to 'guix/scripts/build.scm')
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index ba47b1232d..6bb1f72eb9 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -52,7 +52,8 @@
show-transformation-options-help
guix-build
- register-root))
+ register-root
+ register-root*))
(define %default-log-urls
;; Default base URLs for build logs.
@@ -123,6 +124,9 @@ found. Return #f if no build log was found."
(leave (_ "failed to create GC root `~a': ~a~%")
root (strerror (system-error-errno args)))))))
+(define register-root*
+ (store-lift register-root))
+
(define (package-with-source store p uri)
"Return a package based on P but with its source taken from URI. Extract
the new package's version number from URI."
--
cgit v1.2.3