From 5207c5eb55282464a4732fe8b7df40b406ef38a3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Fri, 12 Feb 2021 20:48:20 +0800 Subject: pull: Create the "${XDG_CONFIG_HOME}/guix" directory when needed. This fixes . * guix/scripts/pull.scm (ensure-default-profile): Add a 'mkdir-p' call before 'symlink'. --- guix/scripts/pull.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 4e0ab5d341..13d5eceada 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -39,7 +39,7 @@ close-inferior) #:use-module (guix scripts build) #:use-module (guix scripts describe) - #:autoload (guix build utils) (which) + #:autoload (guix build utils) (which mkdir-p) #:use-module ((guix build syscalls) #:select (with-file-lock/no-wait)) #:use-module (guix git) @@ -521,6 +521,7 @@ true, display what would be built without actually building it." (catch 'system-error (lambda () (false-if-exception (delete-file link)) + (mkdir-p (dirname link)) (symlink %current-profile link)) (lambda args (leave (G_ "while creating symlink '~a': ~a~%") -- cgit v1.2.3