ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: "guix help" silently ignores EPIPE.

Browse source 
This avoids a backtrace when running "guix help | head" or similar.

* guix/ui.scm (run-guix): Wrap 'show-guix-help' calls in
'leave-on-EPIPE'.
This commit is contained in:
Ludovic Courtès 2020-10-01 12:35:00 +02:00
parent 786a04c9ae
commit 7dc19c33fc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/ui.scm
View file

@ -2134,7 +2134,7 @@ (define option? (cut string-prefix? "-" <>))
(G_ "guix: missing command name~%"))
(show-guix-usage))
((or ("-h") ("--help"))
(show-guix-help))
(leave-on-EPIPE (show-guix-help)))
((or ("-V") ("--version"))
(show-version-and-exit "guix"))
(((? option? o) args ...)
@ -2145,7 +2145,7 @@ (define option? (cut string-prefix? "-" <>))
(apply run-guix-command (string->symbol command)
'("--help")))
(("help" args ...)
(show-guix-help))
(leave-on-EPIPE (show-guix-help)))
((command args ...)
(apply run-guix-command
(string->symbol command)