nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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>
This commit is contained in:
Chris Marusich 2017-04-04 20:24:54 -07:00 committed by Ludovic Courtès
parent 50f4ea18c4
commit a09b45da6f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/scripts/build.scm
View File

@ -52,7 +52,8 @@
show-transformation-options-help show-transformation-options-help
guix-build guix-build
register-root)) register-root
register-root*))
(define %default-log-urls (define %default-log-urls
;; Default base URLs for build logs. ;; 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~%") (leave (_ "failed to create GC root `~a': ~a~%")
root (strerror (system-error-errno args))))))) root (strerror (system-error-errno args)))))))
(define register-root*
(store-lift register-root))
(define (package-with-source store p uri) (define (package-with-source store p uri)
"Return a package based on P but with its source taken from URI. Extract "Return a package based on P but with its source taken from URI. Extract
the new package's version number from URI." the new package's version number from URI."