me
/
guix
Archived
1
0
Fork 0
Code

import: crate: Export 'string->license'. 

* guix/import/crate.scm (string->license): Export.
* tests/crate.scm (string->license): Remove.
master
Ludovic Courtès 2020-01-16 21:45:36 +01:00
parent 3597c0396b
commit 72c678af55
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/import/crate.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2019 Martin Becze <mjbecze@riseup.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -40,6 +40,7 @@
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:export (crate->guix-package #:export (crate->guix-package
guix-package->crate-name guix-package->crate-name
string->license
crate-recursive-import crate-recursive-import
%crate-updater)) %crate-updater))

5
tests/crate.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 David Thompson <davet@gnu.org> ;;; Copyright © 2014 David Thompson <davet@gnu.org>
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -233,9 +233,6 @@
(define test-source-hash (define test-source-hash
"") "")
(define string->license
(@@ (guix import crate) string->license))
(test-begin "crate") (test-begin "crate")
(test-equal "guix-package->crate-name" (test-equal "guix-package->crate-name"