scripts: time-machine: Handle EPIPE errors when displaying help.

* guix/scripts/time-machine.scm (%options): Handle EPIPE errors when
displaying help.
This commit is contained in:
Simon Tournier 2023-10-16 17:48:23 +02:00
parent c4aa37fde9
commit a293b1cfa7
No known key found for this signature in database
GPG Key ID: 92F1D22C608EE7E5

View File

@ -107,7 +107,7 @@ Execute COMMAND ARGS... in an older version of Guix.\n"))
(alist-cons 'authenticate-channels? #f result))) (alist-cons 'authenticate-channels? #f result)))
(option '(#\h "help") #f #f (option '(#\h "help") #f #f
(lambda args (lambda args
(show-help) (leave-on-EPIPE (show-help))
(exit 0))) (exit 0)))
(option '(#\V "version") #f #f (option '(#\V "version") #f #f
(lambda args (lambda args