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:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user