~ruther/guix-local: guix package: Gracefully handle EPIPE on '--search'.

eb9a9feefdcf1ea602468fa6fbbfa1ea0539dee9 — Ludovic Courtès 12 years ago 8fa3e6b

guix package: Gracefully handle EPIPE on '--search'.

* guix/scripts/package.scm (guix-package): Wrap body of 'search' in
  'leave-on-EPIPE'.

patch browse .tar.gz

1 files changed, 3 insertions(+), 2 deletions(-)

M guix/scripts/package.scm

M guix/scripts/package.scm => guix/scripts/package.scm +3 -2

@@ 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)