me
/
guix
Archived
1
0
Fork 0

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

* guix/scripts/package.scm (guix-package): Wrap body of 'search' in
  'leave-on-EPIPE'.
master
Ludovic Courtès 2014-01-13 18:51:07 +01:00
parent 8fa3e6b338
commit eb9a9feefd
1 changed files with 3 additions and 2 deletions

View File

@ -1032,8 +1032,9 @@ more information.~%"))
(('search regexp) (('search regexp)
(let ((regexp (make-regexp regexp regexp/icase))) (let ((regexp (make-regexp regexp regexp/icase)))
(for-each (cute package->recutils <> (current-output-port)) (leave-on-EPIPE
(find-packages-by-description regexp)) (for-each (cute package->recutils <> (current-output-port))
(find-packages-by-description regexp)))
#t)) #t))
(('search-paths) (('search-paths)