diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-06-07 10:14:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-06-08 22:06:00 +0200 |
| commit | 92ee0fd5eb7b1572cd4f90a7c12c1137ce74004b (patch) | |
| tree | 03906efaaa143b4ab326e0fdfdf47b951eea7a20 /guix/scripts/import.scm | |
| parent | 872b2487451c39020a78ed3227992fb02a7ed5e5 (diff) | |
import: Gracefully handle EPIPE.
Previously, "guix import pypi f3 | head -3" would print a backtrace.
* guix/scripts/import.scm (guix-import): Wrap
'pretty-print-with-comments' call in 'leave-on-EPIPE'.
Diffstat (limited to 'guix/scripts/import.scm')
| -rw-r--r-- | guix/scripts/import.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm index f84a964a53..4ddd8d46a1 100644 --- a/guix/scripts/import.scm +++ b/guix/scripts/import.scm @@ -85,7 +85,8 @@ Run IMPORTER with ARGS.\n")) ((importer args ...) (if (member importer importers) (let ((print (lambda (expr) - (pretty-print-with-comments (current-output-port) expr)))) + (leave-on-EPIPE + (pretty-print-with-comments (current-output-port) expr))))) (match (apply (resolve-importer importer) args) ((and expr (or ('package _ ...) ('let _ ...) |