05/05: home: symlink-manager: Allow busy device skip.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit b1ec85533a63c10616d9260f90411ca6f362de00
Author: Nicolas Graves <ngraves@ngraves.fr>
AuthorDate: Sun Feb 4 03:19:57 2024 +0100

    home: symlink-manager: Allow busy device skip.
    
    * gnu/home/services/symlink-manager.scm (update-symlinks-script):
    Allow busy device skip.
    
    Change-Id: Iff91c8a30309d25c02a8311d8d5ddbf54e90f5ad
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/home/services/symlink-manager.scm | 7 +++++++
 1 file changed, 7 insertions(+)

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 <andrew@trop.in>
 ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
 ;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -157,6 +158,12 @@ subdirectory from XDG_CONFIG_HOME to generate a target 
path."
                            #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