diff options
| -rw-r--r-- | guix/scripts/style.scm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm index 01196eb3e4..3b246e9c66 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<?)))))) |