me/guix
Archived
1
0
Fork 0
Code Activity

home: symlink-manager: Add missing 'done' word in message.

Browse source 
* 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>
This commit is contained in:
Andrew Tropin 2022-03-11 09:21:41 +03:00 • committed by Ludovic Courtès
parent 9e86e58d6f
commit d05954047f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/home/services/symlink-manager.scm
View file

@ -107,9 +107,10 @@
(format #t (G_ "Removing ~a...") file) (format #t (G_ "Removing ~a...") file)
(delete-file file) (delete-file file)
(display (G_ " done\n"))) (display (G_ " done\n")))
(format #t (format
(G_ "Skipping ~a (not a symlink to store)... done\n") #t
file))))) (G_ "Skipping ~a (not a symlink to store)... done\n")
file)))))
(const #t) ;down (const #t) ;down
(lambda (directory stat _) ;up (lambda (directory stat _) ;up
@ -121,14 +122,15 @@
(format #t (G_ "Removed ~a.\n") directory)) (format #t (G_ "Removed ~a.\n") directory))
(lambda args (lambda args
(let ((errno (system-error-errno args))) (let ((errno (system-error-errno args)))
(cond ((= ENOTEMPTY errno) (cond
(format ((= ENOTEMPTY errno)
#t (format
(G_ "Skipping ~a (not an empty directory)...\n") #t
directory)) (G_ "Skipping ~a (not an empty directory)... done\n")
((= ENOTDIR errno) #t) directory))
(else ((= ENOTDIR errno) #t)
(apply throw args))))))))) (else
(apply throw args)))))))))
(const #t) ;skip (const #t) ;skip
(const #t) ;error (const #t) ;error
#t ;init #t ;init