10/10: style: Gracefully handle errors such as EACCES when opening files.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f6e79ef108a206a2fb3db550d76de760d581f8a8
Author: Ludovic Courtès <ludo@gnu.org>
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<?))))))