From 7c4700e9f9c290ecc08a4da41534063565fccb25 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 3 Feb 2019 22:32:13 +0100
Subject: [PATCH] store: 'log-file' honors 'GUIX_LOG_DIRECTORY'.

* guix/store.scm (derivation-log-file): Use %LOCALSTATEDIR or
"GUIX_LOG_DIRECTORY" instead of (dirname %STATE-DIRECTORY).
---
 guix/store.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/store.scm b/guix/store.scm
index d079147529..0a0a7c7c52 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -1856,8 +1856,9 @@ syntactically valid store path."
   "Return the build log file for DRV, a derivation file name, or #f if it
 could not be found."
   (let* ((base    (basename drv))
-         (log     (string-append (dirname %state-directory) ; XXX
-                                 "/log/guix/drvs/"
+         (log     (string-append (or (getenv "GUIX_LOG_DIRECTORY")
+                                     (string-append %localstatedir "/log/guix"))
+                                 "/drvs/"
                                  (string-take base 2) "/"
                                  (string-drop base 2)))
          (log.gz  (string-append log ".gz"))