aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-01-13 18:51:07 +0100
committerLudovic Courtès <ludo@gnu.org>2014-01-13 18:51:07 +0100
commiteb9a9feefdcf1ea602468fa6fbbfa1ea0539dee9 (patch)
tree6f1c43a4820468f4081f2d066de241036d9feb3e
parent8fa3e6b338fa9e2534ea971269ac2d3ed49a305b (diff)
downloadpatches-eb9a9feefdcf1ea602468fa6fbbfa1ea0539dee9.tar
patches-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.scm5
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)