diff options
| author | Leo Famulari <leo@famulari.name> | 2017-04-14 13:07:16 -0400 |
|---|---|---|
| committer | Leo Famulari <leo@famulari.name> | 2017-04-14 13:07:16 -0400 |
| commit | c57ce31a896f659a2e311c2ee90b9027f4a405bc (patch) | |
| tree | 17d0d0238ca1db65cce1f2ac68273af0483c9e7d /guix/scripts/build.scm | |
| parent | f575efa12c5df9f9879b7be0fe3593a3106a346d (diff) | |
| parent | 8439c9c05eab5c98d889fb1de56bc78f62a8058f (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/scripts/build.scm')
| -rw-r--r-- | guix/scripts/build.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 68402fda18..6bb1f72eb9 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -51,7 +51,9 @@ options->transformation show-transformation-options-help - guix-build)) + guix-build + register-root + register-root*)) (define %default-log-urls ;; Default base URLs for build logs. @@ -122,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." |