diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2021-10-09 14:52:10 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2021-10-09 19:24:19 +0300 |
| commit | 0f6a27c2c46ab6603a6b1ed9cee99c9f81eca3c5 (patch) | |
| tree | 0735c32d6447e7c6883ed71b8149d61f7947083c | |
| parent | 0e8d2df0f1a4ab25c482e1c427c54e19903e62f3 (diff) | |
| download | guix-patches-0f6a27c2c46ab6603a6b1ed9cee99c9f81eca3c5.tar guix-patches-0f6a27c2c46ab6603a6b1ed9cee99c9f81eca3c5.tar.gz | |
scripts: home: Make sure profile directory exists.
* guix/scripts/home.scm (process-action): Make sure profile directory exists.
| -rw-r--r-- | gnu/home/services.scm | 3 | ||||
| -rw-r--r-- | guix/scripts/home.scm | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm index c497b14617..5c9b743f7b 100644 --- a/gnu/home/services.scm +++ b/gnu/home/services.scm @@ -508,7 +508,8 @@ environment, and its configuration file, when available."))) (define %guix-home-root-directory ;; Absolute file name of the module hierarchy. - (parent-directory (dirname (search-path %load-path "gnu/home/services.scm")))) + (parent-directory + (dirname (dirname (search-path %load-path "gnu/home/services.scm"))))) (define %service-type-path ;; Search path for service types. diff --git a/guix/scripts/home.scm b/guix/scripts/home.scm index 8656db22c9..55e7b436c1 100644 --- a/guix/scripts/home.scm +++ b/guix/scripts/home.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2021 Andrew Tropin <andrew@trop.in> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com> +;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -189,6 +190,7 @@ ACTION must be one of the sub-commands that takes a home environment declaration as an argument (a file name.) OPTS is the raw alist of options resulting from command-line parsing." (define (ensure-home-environment file-or-exp obj) + (ensure-profile-directory) (unless (home-environment? obj) (leave (G_ "'~a' does not return a home environment ~%") file-or-exp)) |