diff options
| author | Chris Marusich <cmmarusich@gmail.com> | 2017-04-04 20:24:54 -0700 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-06 10:11:26 +0200 |
| commit | a09b45da6fe951112eb30da5feb0f86266f8ba8a (patch) | |
| tree | 0976b58bb28cfcc824bce4ef33aad8d9352d74f7 /guix/scripts/build.scm | |
| parent | 50f4ea18c46ea6e702dbd20841401662ba925f76 (diff) | |
| download | gnu-guix-a09b45da6fe951112eb30da5feb0f86266f8ba8a.tar gnu-guix-a09b45da6fe951112eb30da5feb0f86266f8ba8a.tar.gz | |
build: Add and export procedure 'register-root*'.
* guix/scripts/build.scm (register-root*): Add and export it.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/scripts/build.scm')
| -rw-r--r-- | guix/scripts/build.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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." |