futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

guix-package: Be verbose when Guile itself needs to be built.

Browse Source 
* guix-package.in (guix-package)[guile-missing?]: New procedure.
  (guix-package): Always redirect `current-build-output-port' to
  `current-error-port' when (guile-missing?).
This commit is contained in:
Ludovic Courtès 2013-01-07 23:58:24 +01:00
parent cc57f25d96
commit 9762706b90
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix-package.in
View File

@ -272,6 +272,11 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n"))
(alist-cons 'argument arg result)) (alist-cons 'argument arg result))
%default-options)) %default-options))
(define (guile-missing?)
;; Return #t if %GUILE-FOR-BUILD is not available yet.
(let ((out (derivation-path->output-path (%guile-for-build))))
(not (valid-path? %store out))))
(define (show-what-to-build drv dry-run?) (define (show-what-to-build drv dry-run?)
;; Show what will/would be built in realizing the derivations listed ;; Show what will/would be built in realizing the derivations listed
;; in DRV. ;; in DRV.
@ -393,7 +398,9 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n"))
(if (string=? old-prof prof) (if (string=? old-prof prof)
(format (current-error-port) (_ "nothing to be done~%")) (format (current-error-port) (_ "nothing to be done~%"))
(and (parameterize ((current-build-output-port (and (parameterize ((current-build-output-port
(if verbose? ;; Output something when Guile
;; needs to be built.
(if (or verbose? (guile-missing?))
(current-error-port) (current-error-port)
(%make-void-port "w")))) (%make-void-port "w"))))
(build-derivations %store (list prof-drv))) (build-derivations %store (list prof-drv)))