[PATCH 2/3] guix import pypi: do not add "python-" to a package name if it's already there.

[Cyril Roelandt]

* guix/import/pypi.scm (make-pypi-sexp): test whether the package name starts
  with "python-" before modifying it.
---
 guix/import/pypi.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm
index 8f5e031..722ad9d 100644
--- a/guix/import/pypi.scm
+++ b/guix/import/pypi.scm
@@ -134,7 +134,9 @@ underscores."
   "Return the `package' s-expression for a python package with the given NAME,
 VERSION, SOURCE-URL, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE."
   `(package
-     (name ,(string-append "python-" (snake-case name)))
+     (name ,(if (eq? (string-contains name "python-") 0)
+                (snake-case name)
+                (string-append "python-" (snake-case name))))
      (version ,version)
      (source (origin
                (method url-fetch)
-- 
1.8.4.rc3