mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: 'cache-directory' gracefully deals with unset 'HOME'.

Browse source 
Fixes <http://bugs.gnu.org/23165>.

* guix/utils.scm (cache-directory): Use 'getpwuid' when 'HOME' is unset.
This commit is contained in:
Ludovic Courtès 2016-04-18 19:26:34 +02:00
parent cd76fbde6f
commit dd1d09f7e4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/utils.scm
View file

@ -808,7 +808,8 @@ (define (same? x)
(define (cache-directory) (define (cache-directory)
"Return the cache directory for Guix, by default ~/.cache/guix." "Return the cache directory for Guix, by default ~/.cache/guix."
(or (getenv "XDG_CONFIG_HOME") (or (getenv "XDG_CONFIG_HOME")
(and=> (getenv "HOME") (and=> (or (getenv "HOME")
(passwd:dir (getpwuid (getuid))))
(cut string-append <> "/.cache/guix")))) (cut string-append <> "/.cache/guix"))))
(define (readlink* file) (define (readlink* file)