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

* guix/scripts/package.scm (guix-package): Wrap body of 'search' in
  'leave-on-EPIPE'.
This commit is contained in:
Ludovic Courtès 2014-01-13 18:51:07 +01:00
parent 8fa3e6b338
commit eb9a9feefd

View File

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