From 72c678af55390ce01bec590f760ab95af67663b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 16 Jan 2020 21:45:36 +0100
Subject: import: crate: Export 'string->license'.

* guix/import/crate.scm (string->license): Export.
* tests/crate.scm (string->license): Remove.
---
 guix/import/crate.scm | 3 ++-
 tests/crate.scm       | 5 +----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/guix/import/crate.scm b/guix/import/crate.scm
index 405a26a877..57823c3639 100644
--- a/guix/import/crate.scm
+++ b/guix/import/crate.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; 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>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -40,6 +40,7 @@
   #:use-module (srfi srfi-26)
   #:export (crate->guix-package
             guix-package->crate-name
+            string->license
             crate-recursive-import
             %crate-updater))
 
diff --git a/tests/crate.scm b/tests/crate.scm
index 61933a8de8..aa51faebf9 100644
--- a/tests/crate.scm
+++ b/tests/crate.scm
@@ -1,7 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014 David Thompson <davet@gnu.org>
 ;;; 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.
 ;;;
@@ -233,9 +233,6 @@
 (define test-source-hash
   "")
 
-(define string->license
-  (@@ (guix import crate) string->license))
-
 (test-begin "crate")
 
 (test-equal "guix-package->crate-name"
-- 
cgit v1.2.3