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:
parent
65d13e3043
commit
7c4700e9f9
|
@ -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"))
|
||||
|
|
Loading…
Reference in New Issue