diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm index e4c931fbee..560e03a839 100644 --- a/gnu/home/services/symlink-manager.scm +++ b/gnu/home/services/symlink-manager.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2021 Andrew Tropin ;;; Copyright © 2021 Xinglu Chen ;;; Copyright © 2022 Ludovic Courtès +;;; Copyright © 2024 Nicolas Graves ;;; ;;; This file is part of GNU Guix. ;;; @@ -157,6 +158,12 @@ (define (strip file) #t (G_ "Skipping ~a (not an empty directory)... done\n") directory)) + ;; This happens when the directory is a mounted device. + ((= EBUSY errno) + (format + #t + (G_ "Skipping ~a (underlying device is busy)... done\n") + directory)) ((= ENOENT errno) #t) ((= ENOTDIR errno) #t) (else