import/print: Return license with prefix.
* guix/import/print.scm (license->code): Prepend license: prefix.
This commit is contained in:
parent
7b2cb1bf19
commit
1475d45112
|
@ -1,5 +1,5 @@
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
|
;;; Copyright © 2017, 2020 Ricardo Wurmus <rekado@elephly.net>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -57,7 +57,7 @@ (define (variable-name val mod)
|
||||||
;; Print either license variable name or the code for a license object
|
;; Print either license variable name or the code for a license object
|
||||||
(define (license->code lic)
|
(define (license->code lic)
|
||||||
(let ((var (variable-name lic '(guix licenses))))
|
(let ((var (variable-name lic '(guix licenses))))
|
||||||
(or var
|
(or (symbol-append 'license: var)
|
||||||
`(license
|
`(license
|
||||||
(name ,(license-name lic))
|
(name ,(license-name lic))
|
||||||
(uri ,(license-uri lic))
|
(uri ,(license-uri lic))
|
||||||
|
|
Loading…
Reference in a new issue