mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: locate: Handle EPIPE errors when displaying help.

Browse source 
* guix/scripts/locate.scm (%options): Handle EPIPE errors when displaying
help.
This commit is contained in:
Simon Tournier 2023-10-16 18:48:13 +02:00
parent 078107289a
commit 55c3776023
No known key found for this signature in database
GPG key ID: 92F1D22C608EE7E5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/scripts/locate.scm
View file

@ -543,7 +543,7 @@ (define (show-help)
(define %options
(list (option '(#\h "help") #f #f
(lambda args (show-help) (exit 0)))
(lambda args (leave-on-EPIPE (show-help)) (exit 0)))
(option '(#\V "version") #f #f
(lambda (opt name arg result)
(show-version-and-exit "guix locate")))