diff options
| author | Andrew Tropin <andrew@trop.in> | 2022-03-11 09:21:41 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-20 19:02:41 +0100 |
| commit | d05954047f7a9b07928d78dabc2a6a345dd0b016 (patch) | |
| tree | 827f621d56be9f0b1a66b3b149670f5031dd194b /gnu/home/services | |
| parent | 9e86e58d6f77297551c96b6a8aae0a4efadd8eac (diff) | |
| download | guix-d05954047f7a9b07928d78dabc2a6a345dd0b016.tar.gz | |
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.scm | 24 |
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 |