From 0ff3c232744582d6a5da81e38f6ed7a9b352e956 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 8 Feb 2018 11:47:05 +0100
Subject: [PATCH] base: Explicitly enable #:print-build-trace.

This is purely "defensive programming" since the default value for
'print-build-trace' is currently #t.

* src/cuirass/base.scm (with-store): Pass #:print-build-trace to
'set-build-options'.
---
 src/cuirass/base.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index f66c30e..70c0168 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -69,11 +69,13 @@
   (let* ((store (open-connection))
          (result (begin
                    ;; Always set #:keep-going? so we don't stop on the first
-                   ;; build failure.
+                   ;; build failure.  Set #:print-build-trace explicitly to
+                   ;; make sure 'process-build-log' sees build events.
                    (set-build-options store
                                       #:use-substitutes? (%use-substitutes?)
                                       #:fallback? (%fallback?)
-                                      #:keep-going? #t)
+                                      #:keep-going? #t
+                                      #:print-build-trace #t)
                    exp ...)))
     (close-connection store)
     result))