From 0aa5ef27f7be2dc83f550e9c8ff3672aefc1d687 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 8 Jul 2023 23:28:08 +0100
Subject: forge: Show verbose build logs in guix-channel-job-gexp.

* guix/forge/forge.scm (guix-channel-job-gexp): Add #:verbose?
argument.
---
 guix/forge/forge.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'guix/forge')

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
-- 
cgit v1.2.3