me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/store.scm (derivation-log-file): Use %LOCALSTATEDIR or
"GUIX_LOG_DIRECTORY" instead of (dirname %STATE-DIRECTORY).
master
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
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/store.scm
View File

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