diff options
| author | Arun Isaac | 2023-07-08 23:28:08 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-07-08 23:28:08 +0100 |
| commit | 0aa5ef27f7be2dc83f550e9c8ff3672aefc1d687 (patch) | |
| tree | 1c008ee53a791f945c2f970defebb30bbf685d81 | |
| parent | 36e3cae37bf0e1ce095ffc09cf0b19819db5ab1c (diff) | |
| download | guix-forge-0aa5ef27f7be2dc83f550e9c8ff3672aefc1d687.tar.gz guix-forge-0aa5ef27f7be2dc83f550e9c8ff3672aefc1d687.tar.lz guix-forge-0aa5ef27f7be2dc83f550e9c8ff3672aefc1d687.zip | |
forge: Show verbose build logs in guix-channel-job-gexp.
* guix/forge/forge.scm (guix-channel-job-gexp): Add #:verbose? argument.
| -rw-r--r-- | guix/forge/forge.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix/forge/forge.scm b/guix/forge/forge.scm index 68abe2f..19426cd 100644 --- a/guix/forge/forge.scm +++ b/guix/forge/forge.scm @@ -259,12 +259,16 @@ clone and does not include the .git directory." derivation-output))))))) (define* (guix-channel-job-gexp channels - #:key (guix-daemon-uri %daemon-socket-uri)) + #:key + (guix-daemon-uri %daemon-socket-uri) + (verbose? #true)) "Return a G-expression that pulls @var{channels} and builds all packages defined in the first channel. @var{guix-daemon-uri} is a file name or URI designating the Guix -daemon endpoint." +daemon endpoint. + +When @var{verbose?} is #true, verbose build logs are shown." (with-extensions (list guix guile-bytestructures guile-gcrypt guile-git) #~(begin (use-modules (guix channels) @@ -301,7 +305,7 @@ daemon endpoint." (cons drv (guard (ex ((store-protocol-error? ex) (store-protocol-error-message ex))) - (with-status-verbosity 0 + (with-status-verbosity (if #$verbose? 1 0) (with-store store (run-with-store store (mbegin %store-monad |