From 64a967cc9c4563f8ebb8dbc34e9026f8e5e2d883 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 3 Nov 2013 23:09:30 +0100
Subject: [PATCH] ui: Make '--version' output GCS-compliant.
* guix/ui.scm (show-version-and-exit): Display copyright year, license,
and LACK OF WARRANTY.
---
guix/ui.scm | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/guix/ui.scm b/guix/ui.scm
index ddc93f9db4e..8a28574c3c2 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -137,6 +137,11 @@ (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)
+ (display (_ "Copyright (C) 2013 the Guix authors
+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)
--
GitLab