guix build: Factorize build log query.

* guix/scripts/build.scm (show-build-log): New procedure.
(guix-build): New variable 'items'.  Use it and 'show-build-log'.
This commit is contained in:
Ludovic Courtès 2015-11-29 17:42:01 +01:00
parent 4eae798075
commit 841cb43c6b

View file

@ -494,6 +494,15 @@ (define new-sources
((head tail ...)
(loop tail sources (cons head result))))))
(define (show-build-log store file urls)
"Show the build log for FILE, falling back to remote logs from URLS if
needed."
(let ((log (or (log-file store file)
(log-url store file #:base-urls urls))))
(if log
(format #t "~a~%" log)
(leave (_ "no build log for '~a'~%") file))))
;;;
;;; Entry point.
@ -515,9 +524,14 @@ (define (guix-build . args)
;; daemon's substitute URLs.
%default-substitute-urls)
'())))
(items (filter-map (match-lambda
(('argument . (? store-path? file))
file)
(_ #f))
opts))
(roots (filter-map (match-lambda
(('gc-root . root) root)
(_ #f))
(('gc-root . root) root)
(_ #f))
opts)))
(set-build-options-from-command-line store opts)
@ -527,22 +541,10 @@ (define (guix-build . args)
#:dry-run? (assoc-ref opts 'dry-run?)))
(cond ((assoc-ref opts 'log-file?)
(for-each (lambda (file)
(let ((log (or (log-file store file)
(log-url store file
#:base-urls urls))))
(if log
(format #t "~a~%" log)
(leave (_ "no build log for '~a'~%")
file))))
(for-each (cut show-build-log store <> urls)
(delete-duplicates
(append (map derivation-file-name drv)
(filter-map (match-lambda
(('argument
. (? store-path? file))
file)
(_ #f))
opts)))))
items))))
((assoc-ref opts 'derivations-only?)
(format #t "~{~a~%~}" (map derivation-file-name drv))
(for-each (cut register-root store <> <>)