From 4a44e743a0dfaa8fcaaa804b8c93a89ff68f2a97 Mon Sep 17 00:00:00 2001
From: Nikita Karetnikov <nikita@karetnikov.org>
Date: Fri, 14 Dec 2012 15:14:04 +0000
Subject: distro: Use (guix licenses) instead of strings.

* distro/packages/acl.scm, distro/packages/attr.scm,
  distro/packages/autotools.scm, distro/packages/base.scm,
  distro/packages/bash.scm, distro/packages/bdw-gc.scm,
  distro/packages/bison.scm, distro/packages/bootstrap.scm,
  distro/packages/compression.scm, distro/packages/cpio.scm,
  distro/packages/ddrescue.scm, distro/packages/ed.scm,
  distro/packages/flex.scm, distro/packages/gawk.scm,
  distro/packages/gdbm.scm, distro/packages/gettext.scm,
  distro/packages/gnupg.scm, distro/packages/gnutls.scm,
  distro/packages/gperf.scm, distro/packages/guile.scm,
  distro/packages/help2man.scm, distro/packages/less.scm,
  distro/packages/libffi.scm, distro/packages/libsigsegv.scm,
  distro/packages/libunistring.scm, distro/packages/linux.scm,
  distro/packages/lout.scm, distro/packages/lsh.scm,
  distro/packages/m4.scm, distro/packages/multiprecision.scm,
  distro/packages/nano.scm, distro/packages/ncurses.scm,
  distro/packages/nettle.scm, distro/packages/perl.scm,
  distro/packages/pkg-config.scm, distro/packages/pth.scm,
  distro/packages/readline.scm, distro/packages/recutils.scm,
  distro/packages/shishi.scm, distro/packages/system.scm,
  distro/packages/texinfo.scm, distro/packages/time.scm,
  distro/packages/wget.scm, distro/packages/which.scm,
  distro/packages/zile.scm: Use (guix licenses).
---
 distro/packages/linux.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'distro/packages/linux.scm')

diff --git a/distro/packages/linux.scm b/distro/packages/linux.scm
index d6669312dc..0ec18300fc 100644
--- a/distro/packages/linux.scm
+++ b/distro/packages/linux.scm
@@ -18,7 +18,9 @@
 ;;; along with Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (distro packages linux)
-  #:use-module (distro packages compression)
+  #:use-module (guix licenses)
+  #:use-module ((distro packages compression)
+                #:renamer (symbol-prefix-proc 'guix:))
   #:use-module (distro packages flex)
   #:use-module (distro packages ncurses)
   #:use-module (distro packages perl)
@@ -107,7 +109,7 @@
 Pluggable authentication modules are small shared object files that can
 be used through the PAM API to perform tasks, like authenticating a user
 at login.  Local and dynamic reconfiguration are its key features")
-    (license "BSD")))
+    (license bsd-3)))
 
 (define-public psmisc
   (package
@@ -130,7 +132,7 @@ at login.  Local and dynamic reconfiguration are its key features")
      "This PSmisc package is a set of some small useful utilities that
 use the proc filesystem. We're not about changing the world, but
 providing the system administrator with some help in common tasks.")
-    (license "GPLv2+")))
+    (license gpl2+)))
 
 (define-public util-linux
   (package
@@ -156,7 +158,7 @@ providing the system administrator with some help in common tasks.")
                        ;; Allow 'patch-shebang' to do its work.
                        (("@PERL@") "/bin/perl"))))
                  %standard-phases)))
-    (inputs `(("zlib" ,zlib)
+    (inputs `(("zlib" ,guix:zlib)
               ("ncurses" ,ncurses)
               ("perl" ,perl)))
     (home-page "https://www.kernel.org/pub/linux/utils/util-linux/")
@@ -167,5 +169,5 @@ providing the system administrator with some help in common tasks.")
     ;; Note that util-linux doesn't use the same license for all the
     ;; code. GPLv2+ is the default license for a code without an
     ;; explicitly defined license.
-    (license '("GPLv3+" "GPLv2+" "GPLv2" "LGPLv2+"
-               "BSD-original" "Public Domain"))))
+    (license '(gpl3+ gpl2+ gpl2 lgpl2.0+
+               bsd-4 public-domain))))
-- 
cgit v1.2.3