aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/scripts/pull.scm3
1 files changed, 2 insertions, 1 deletions
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~%")