21/40: scripts: offload: Handle EPIPE errors when displaying help.

[guix-commits]

zimoun pushed a commit to branch master
in repository guix.

commit ef8a615861f3a007aa36b3375e775adb621ec052
Author: Simon Tournier <zimon.toutoune@gmail.com>
AuthorDate: Mon Oct 16 18:42:43 2023 +0200

    scripts: offload: Handle EPIPE errors when displaying help.
    
    * guix/scripts/offload.scm (guix-offload): Handle EPIPE errors when 
displaying
    help.
---
 guix/scripts/offload.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 7b76126d35..137e3b5fe3 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -868,11 +868,12 @@ machine."
     (("--version")
      (show-version-and-exit "guix offload"))
     (("--help")
-     (format #t (G_ "Usage: guix offload SYSTEM MAX-SILENT-TIME \
+     (leave-on-EPIPE
+      (format #t (G_ "Usage: guix offload SYSTEM MAX-SILENT-TIME \
 PRINT-BUILD-TRACE? BUILD-TIMEOUT
 Process build offload requests written on the standard input, possibly
 offloading builds to the machines listed in '~a'.~%")
-             %machine-file)
+              %machine-file))
      (display (G_ "
 This tool is meant to be used internally by 'guix-daemon'.\n"))
      (show-bug-report-information))