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

* guix/store.scm (derivation-log-file): Use %LOCALSTATEDIR or
"GUIX_LOG_DIRECTORY" instead of (dirname %STATE-DIRECTORY).
This commit is contained in:
Ludovic Courtès 2019-02-03 22:32:13 +01:00
parent 65d13e3043
commit 7c4700e9f9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

@ -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"))