diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-01-13 18:51:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-01-13 18:51:07 +0100 |
| commit | eb9a9feefdcf1ea602468fa6fbbfa1ea0539dee9 (patch) | |
| tree | 6f1c43a4820468f4081f2d066de241036d9feb3e | |
| parent | 8fa3e6b338fa9e2534ea971269ac2d3ed49a305b (diff) | |
| download | guix-eb9a9feefdcf1ea602468fa6fbbfa1ea0539dee9.tar.gz | |
guix package: Gracefully handle EPIPE on '--search'.
* guix/scripts/package.scm (guix-package): Wrap body of 'search' in 'leave-on-EPIPE'.
| -rw-r--r-- | guix/scripts/package.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 04393abc9a..d41a83de8a 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -1032,8 +1032,9 @@ more information.~%")) (('search regexp) (let ((regexp (make-regexp regexp regexp/icase))) - (for-each (cute package->recutils <> (current-output-port)) - (find-packages-by-description regexp)) + (leave-on-EPIPE + (for-each (cute package->recutils <> (current-output-port)) + (find-packages-by-description regexp))) #t)) (('search-paths) |