kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

ui: Add 'show-derivation-outputs'.

Browse Source 
* guix/scripts/build.scm (guix-build): Extract code from here and move to...
* guix/ui.scm (show-derivation-outputs): ... here.  New procedure.
This commit is contained in:
Alex Kost 2015-07-23 16:08:39 +03:00
parent 88981dd3e2
commit fa394eb99c
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/scripts/build.scm
View File

@ -538,14 +538,7 @@ arguments with packages that use the specified source."
roots))
((not (assoc-ref opts 'dry-run?))
(and (build-derivations store drv)
(for-each (lambda (d)
(format #t "~{~a~%~}"
(map (match-lambda
((out-name . out)
(derivation->output-path
d out-name)))
(derivation-outputs d))))
drv)
(for-each show-derivation-outputs drv)
(for-each (cut register-root store <> <>)
(map (lambda (drv)
(map cdr

9
guix/ui.scm
View File

@ -62,6 +62,7 @@
show-bug-report-information
string->number*
size->number
show-derivation-outputs
show-what-to-build
show-what-to-build*
show-manifest-transaction
@ -502,6 +503,14 @@ error."
(leave (_ "expression ~s does not evaluate to a package~%")
str))))
(define (show-derivation-outputs derivation)
"Show the output file names of DERIVATION."
(format #t "~{~a~%~}"
(map (match-lambda
((out-name . out)
(derivation->output-path derivation out-name)))
(derivation-outputs derivation))))
(define* (show-what-to-build store drv
#:key dry-run? (use-substitutes? #t))
"Show what will or would (depending on DRY-RUN?) be built in realizing the