From a09b45da6fe951112eb30da5feb0f86266f8ba8a Mon Sep 17 00:00:00 2001 From: Chris Marusich 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 --- guix/scripts/build.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'guix/scripts') 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 @@ (define-module (guix scripts build) 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 @@ (define (register-root store paths root) (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