From 07ab4bf1fc590642307f18b4d1b8687dde3d664b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 15 Dec 2012 15:21:38 +0100 Subject: guix-build: Add `--verbosity'. * guix-build.in (%default-options): Add `verbosity'. (%options): Add `--verbosity'. (guix-build): Pass it to `set-build-options'. (show-help): Update accordingly. * doc/guix.texi (Invoking guix-build): Document `--verbosity'. --- guix-build.in | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'guix-build.in') diff --git a/guix-build.in b/guix-build.in index a3f6f5766b..5136a2a5e4 100644 --- a/guix-build.in +++ b/guix-build.in @@ -71,7 +71,8 @@ When SOURCE? is true, return the derivations of the package sources." (define %default-options ;; Alist of default option values. `((system . ,(%current-system)) - (substitutes? . #t))) + (substitutes? . #t) + (verbosity . 0))) (define (show-help) (display (_ "Usage: guix-build [OPTION]... PACKAGE-OR-DERIVATION... @@ -95,6 +96,8 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n")) (display (_ " -r, --root=FILE make FILE a symlink to the result, and register it as a garbage collector root")) + (display (_ " + --verbosity=LEVEL use the given verbosity LEVEL")) (newline) (display (_ " -h, --help display this help and exit")) @@ -147,7 +150,12 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@")) (alist-delete 'substitutes? result)))) (option '(#\r "root") #t #f (lambda (opt name arg result) - (alist-cons 'gc-root arg result))))) + (alist-cons 'gc-root arg result))) + (option '("verbosity") #t #f + (lambda (opt name arg result) + (let ((level (string->number arg))) + (alist-cons 'verbosity level + (alist-delete 'verbosity result))))))) ;;; @@ -244,7 +252,8 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@")) (set-build-options (%store) #:keep-failed? (assoc-ref opts 'keep-failed?) #:build-cores (or (assoc-ref opts 'cores) 0) - #:use-substitutes? (assoc-ref opts 'substitutes?)) + #:use-substitutes? (assoc-ref opts 'substitutes?) + #:verbosity (assoc-ref opts 'verbosity)) (if (assoc-ref opts 'derivations-only?) (format #t "~{~a~%~}" drv) -- cgit 1.4.1