05/05: store: 'log-file' honors 'GUIX_LOG_DIRECTORY'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 7c4700e9f9c290ecc08a4da41534063565fccb25
Author: Ludovic Courtès <address@hidden>
Date:   Sun Feb 3 22:32:13 2019 +0100

    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 d079147..0a0a7c7 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"))