From mboxrd@z Thu Jan 1 00:00:00 1970 From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) Subject: Re: Guix build output insufficient Date: Wed, 12 Sep 2018 19:09:39 +0200 Message-ID: <87sh2e7ics.fsf@gnu.org> References: <20180911082653.27gmposcatilbsuq@thebird.nl> <875zzcl09b.fsf@elephly.net> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:32966) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1g08e5-0004BS-Ts for guix-devel@gnu.org; Wed, 12 Sep 2018 13:09:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1g08e5-00068g-2t for guix-devel@gnu.org; Wed, 12 Sep 2018 13:09:41 -0400 In-Reply-To: <875zzcl09b.fsf@elephly.net> (Ricardo Wurmus's message of "Tue, 11 Sep 2018 13:52:16 +0200") List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Ricardo Wurmus Cc: guix-devel --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hello, Ricardo Wurmus skribis: >> On latest >> >> ./pre-inst guix package -i something >> >> The new color scheme is nice for output. But I miss the old build >> logs. How do I get them back? > > The build logs are stored by the daemon. You can get their location by > doing > > guix build --log-file something What about immediately giving the file name of the log, as with the patch attached? Several people have already mentioned not knowing about =E2=80=98guix build --log-file=E2=80=99 so this would probably be helpful. Thanks for bringing colors and minimalism to the tools=E2=80=99 output! :-) Ludo=E2=80=99. --=-=-= Content-Type: text/x-patch Content-Disposition: inline diff --git a/guix/ui.scm b/guix/ui.scm index 1bbd37c25..98425eaff 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -1708,12 +1708,15 @@ phase announcements and replaces any other output with a spinner." (string-append (proc "Building " 'BLUE 'BOLD) (match:substring m 2) "\n"))) - ("^(@ build-failed) (.*) (.*)" + ("^(@ build-failed) ([[:graph:]]+*) (.*)" #:transform ,(lambda (m) - (string-append - (proc "Build failed: " 'RED 'BOLD) - (match:substring m 2) "\n"))) + (let ((drv (match:substring m 2))) + (string-append + (proc "Build failed: " 'RED 'BOLD) + drv "\n") + (info (G_ "build log available at '~a'~%") + (log-file #f (pk 'drv drv)))))) ;XXX: 1st arg ("^(@ build-succeeded) (.*) (.*)" #:transform ,(lambda (m) --=-=-=--