amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: Handle EPIPE errors when displaying Guix version.

Browse source 
Fixes <https://issues.guix.gnu.org/66254>.
Reported by Clément Lassieur <clement@lassieur.org>.

* guix/ui.scm (show-version-and-exit): Handle EPIPE errors when displaying
version.
This commit is contained in:
Simon Tournier 2023-10-12 15:39:03 +02:00
parent 48f9484483
commit b4d1eb53c0
No known key found for this signature in database
GPG key ID: 92F1D22C608EE7E5
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
guix/ui.scm
View file

@ -552,19 +552,20 @@ See the \"Application Setup\" section in the manual, for more info.\n"))
(define* (show-version-and-exit #:optional (command (car (command-line)))) (define* (show-version-and-exit #:optional (command (car (command-line))))
"Display version information for COMMAND and `(exit 0)'." "Display version information for COMMAND and `(exit 0)'."
(simple-format #t "~a (~a) ~a~%" (leave-on-EPIPE
command %guix-package-name %guix-version) (simple-format #t "~a (~a) ~a~%"
(format #t "Copyright ~a 2023 ~a" command %guix-package-name %guix-version)
;; TRANSLATORS: Translate "(C)" to the copyright symbol (format #t "Copyright ~a 2023 ~a"
;; (C-in-a-circle), if this symbol is available in the user's ;; TRANSLATORS: Translate "(C)" to the copyright symbol
;; locale. Otherwise, do not translate "(C)"; leave it as-is. */ ;; (C-in-a-circle), if this symbol is available in the user's
(G_ "(C)") ;; locale. Otherwise, do not translate "(C)"; leave it as-is. */
(G_ "the Guix authors\n")) (G_ "(C)")
(display (G_"\ (G_ "the Guix authors\n"))
(display (G_"\
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html> License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it. This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law. There is NO WARRANTY, to the extent permitted by law.
")) ")))
(exit 0)) (exit 0))
(define (show-bug-report-information) (define (show-bug-report-information)