Browse Source
utils: 'cache-directory' always appends "/guix".
Fixes <http://bugs.gnu.org/23836>.
Fixes a regression introduced in f10dcbf1a9.
Reported by myglc2 <myglc2@gmail.com>.
* guix/utils.scm (cache-directory): Always append "/guix".
version-0.11.0
Ludovic Courtès
6 years ago
No known key found for this signature in database
GPG Key ID: 90B11993D9AEBB5
1 changed files with
5 additions and
4 deletions
-
guix/utils.scm
|
|
|
@ -637,10 +637,11 @@ output port, and PROC's result is returned." |
|
|
|
|
|
|
|
(define (cache-directory) |
|
|
|
"Return the cache directory for Guix, by default ~/.cache/guix." |
|
|
|
(or (getenv "XDG_CACHE_HOME") |
|
|
|
(and=> (or (getenv "HOME") |
|
|
|
(passwd:dir (getpwuid (getuid)))) |
|
|
|
(cut string-append <> "/.cache/guix")))) |
|
|
|
(string-append (or (getenv "XDG_CACHE_HOME") |
|
|
|
(and=> (or (getenv "HOME") |
|
|
|
(passwd:dir (getpwuid (getuid)))) |
|
|
|
(cut string-append <> "/.cache"))) |
|
|
|
"/guix")) |
|
|
|
|
|
|
|
(define (readlink* file) |
|
|
|
"Call 'readlink' until the result is not a symlink." |
|
|
|
|
