From a5ffa812b8cb01f5904e587ed629960902004654 Mon Sep 17 00:00:00 2001
From: Cyril Roelandt <tipecaml@gmail.com>
Date: Thu, 16 Oct 2014 00:42:51 +0200
Subject: guix import pypi: do not add "python-" to a package name if it's
 already there.

* 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(-)

(limited to 'guix')

diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm
index 8f5e031f47..a0b3eb5a7b 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 (string-prefix? "python-" name)
+                (snake-case name)
+                (string-append "python-" (snake-case name))))
      (version ,version)
      (source (origin
                (method url-fetch)
-- 
cgit v1.2.3