1 files changed, 5 insertions(+), 1 deletions(-)

M 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."