civodul pushed a commit to branch master
in repository guix.
commit f6e79ef108a206a2fb3db550d76de760d581f8a8
Author: Ludovic Courtès <[email protected]>
AuthorDate: Sat Dec 18 22:49:40 2021 +0100
style: Gracefully handle errors such as EACCES when opening files.
* guix/scripts/style.scm (guix-style): Wrap body in
'with-error-handling'.
---
guix/scripts/style.scm | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm
index 01196eb..3b246e9 100644
--- a/guix/scripts/style.scm
+++ b/guix/scripts/style.scm
@@ -543,14 +543,15 @@ Update package definitions to the latest style.\n"))
edit-expression/dry-run
edit-expression))
(policy (assoc-ref opts 'input-simplification-policy)))
- (for-each (lambda (package)
- (simplify-package-inputs package #:policy policy
- #:edit-expression edit))
- ;; Sort package by source code location so that we start editing
- ;; files from the bottom and going upward. That way, the
- ;; 'location' field of <package> records is not invalidated as
- ;; we modify files.
- (sort (if (null? packages)
- (fold-packages cons '() #:select? (const #t))
- packages)
- (negate package-location<?)))))
+ (with-error-handling
+ (for-each (lambda (package)
+ (simplify-package-inputs package #:policy policy
+ #:edit-expression edit))
+ ;; Sort package by source code location so that we start
editing
+ ;; files from the bottom and going upward. That way, the
+ ;; 'location' field of <package> records is not invalidated as
+ ;; we modify files.
+ (sort (if (null? packages)
+ (fold-packages cons '() #:select? (const #t))
+ packages)
+ (negate package-location<?))))))
