diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-10-23 21:09:49 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-10-23 21:09:49 +0200 |
| commit | e38d6a9c2fba815ac34e74baa843f15e33846813 (patch) | |
| tree | 0a3dd602449386119fc15de32a5cf7e5f607b2a1 /guix/ui.scm | |
| parent | da716c8b9cdc358609a368bd5da70b31cd97a938 (diff) | |
| parent | cbd20d627497053871db863970c07d93c7081786 (diff) | |
Merge branch 'master' into gnome-team
Change-Id: Ib6f55bebef2fb235fa59fd5442102a3e0ace3191
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 6f2d4fe245..e3bf07212f 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -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)))) "Display version information for COMMAND and `(exit 0)'." - (simple-format #t "~a (~a) ~a~%" - command %guix-package-name %guix-version) - (format #t "Copyright ~a 2023 ~a" - ;; TRANSLATORS: Translate "(C)" to the copyright symbol - ;; (C-in-a-circle), if this symbol is available in the user's - ;; locale. Otherwise, do not translate "(C)"; leave it as-is. */ - (G_ "(C)") - (G_ "the Guix authors\n")) - (display (G_"\ + (leave-on-EPIPE + (simple-format #t "~a (~a) ~a~%" + command %guix-package-name %guix-version) + (format #t "Copyright ~a 2023 ~a" + ;; TRANSLATORS: Translate "(C)" to the copyright symbol + ;; (C-in-a-circle), if this symbol is available in the user's + ;; locale. Otherwise, do not translate "(C)"; leave it as-is. */ + (G_ "(C)") + (G_ "the Guix authors\n")) + (display (G_"\ 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. There is NO WARRANTY, to the extent permitted by law. -")) +"))) (exit 0)) (define (show-bug-report-information) |