diff options
author | David Craven <david@craven.ch> | 2016-09-22 11:30:17 +0200 |
---|---|---|
committer | David Craven <david@craven.ch> | 2016-09-28 12:47:29 +0200 |
commit | 263ac57fc22680395453bed34eaae8e63ea85bbb (patch) | |
tree | a53efd9e83f59ee8d17b438cd6a50f0c20343a17 /guix/import/utils.scm | |
parent | fbe9c1012820ab72f022a6ec958c35b431ae7a74 (diff) | |
download | guix-patches-263ac57fc22680395453bed34eaae8e63ea85bbb.tar guix-patches-263ac57fc22680395453bed34eaae8e63ea85bbb.tar.gz |
import: Move string->license to importers.
* guix/import/gem.scm (string->license): Move from (guix import utils).
* guix/import/pypi.scm (string->license): Move from (guix import utils).
Diffstat (limited to 'guix/import/utils.scm')
-rw-r--r-- | guix/import/utils.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/guix/import/utils.scm b/guix/import/utils.scm index 4ec3b67f4e..69e623a67f 100644 --- a/guix/import/utils.scm +++ b/guix/import/utils.scm @@ -35,7 +35,6 @@ url-fetch guix-hash-url - string->license license->symbol snake-case @@ -110,15 +109,7 @@ recursively apply the procedure to the sub-list." "Return the hash of FILENAME in nix-base32 format." (bytevector->nix-base32-string (file-sha256 filename))) -(define (string->license str) - "Convert the string STR into a license object." (match str - ("GNU LGPL" license:lgpl2.0) - ("GPL" license:gpl3) - ((or "BSD" "BSD License") license:bsd-3) - ((or "MIT" "MIT license" "Expat license") license:expat) - ("Public domain" license:public-domain) - ((or "Apache License, Version 2.0" "Apache 2.0") license:asl2.0) (_ #f))) (define (license->symbol license) |