From 6c6071faf9adba374160fd6168789f0c7c8eb35f Mon Sep 17 00:00:00 2001 From: Simon Tournier Date: Mon, 16 Oct 2023 18:04:08 +0200 Subject: scripts: discover: Handle EPIPE errors when displaying help. * guix/scripts/discover.scm (%options): Handle EPIPE errors when displaying help. --- guix/scripts/discover.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/scripts/discover.scm b/guix/scripts/discover.scm index 8970f835c9..32bf6085a5 100644 --- a/guix/scripts/discover.scm +++ b/guix/scripts/discover.scm @@ -50,7 +50,7 @@ (define %options (alist-cons 'cache arg result))) (option '(#\h "help") #f #f (lambda _ - (show-help) + (leave-on-EPIPE (show-help)) (exit 0))) (option '(#\V "version") #f #f (lambda _ -- cgit v1.2.3