summaryrefslogtreecommitdiff
path: root/gnu/home/services
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2022-03-11 09:21:41 +0300
committerLudovic Courtès <ludo@gnu.org>2022-03-20 19:02:41 +0100
commitd05954047f7a9b07928d78dabc2a6a345dd0b016 (patch)
tree827f621d56be9f0b1a66b3b149670f5031dd194b /gnu/home/services
parent9e86e58d6f77297551c96b6a8aae0a4efadd8eac (diff)
home: symlink-manager: Add missing 'done' word in message.
* gnu/home/services/symlink-manager.scm (update-symlinks-script): Add missing 'done' word in message, keep code width below 80 column. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/home/services')
-rw-r--r--gnu/home/services/symlink-manager.scm24
1 files changed, 13 insertions, 11 deletions
diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm
index bce5c85b56..eb13d60496 100644
--- a/gnu/home/services/symlink-manager.scm
+++ b/gnu/home/services/symlink-manager.scm
@@ -107,9 +107,10 @@
(format #t (G_ "Removing ~a...") file)
(delete-file file)
(display (G_ " done\n")))
- (format #t
- (G_ "Skipping ~a (not a symlink to store)... done\n")
- file)))))
+ (format
+ #t
+ (G_ "Skipping ~a (not a symlink to store)... done\n")
+ file)))))
(const #t) ;down
(lambda (directory stat _) ;up
@@ -121,14 +122,15 @@
(format #t (G_ "Removed ~a.\n") directory))
(lambda args
(let ((errno (system-error-errno args)))
- (cond ((= ENOTEMPTY errno)
- (format
- #t
- (G_ "Skipping ~a (not an empty directory)...\n")
- directory))
- ((= ENOTDIR errno) #t)
- (else
- (apply throw args)))))))))
+ (cond
+ ((= ENOTEMPTY errno)
+ (format
+ #t
+ (G_ "Skipping ~a (not an empty directory)... done\n")
+ directory))
+ ((= ENOTDIR errno) #t)
+ (else
+ (apply throw args)))))))))
(const #t) ;skip
(const #t) ;error
#t ;init