1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-07 05:30:38 +02:00

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)