ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/scripts/style.scm (guix-style): Wrap body in
'with-error-handling'.
This commit is contained in:
Ludovic Courtès 2021-12-18 22:49:40 +01:00
parent a9892f8f2d
commit f6e79ef108
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
guix/scripts/style.scm
View file

@ -543,14 +543,15 @@ (define (parse-options)
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<?))))))