diff options
| -rw-r--r-- | guix/import/pypi.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm index 6b342ca99a..80d184a80c 100644 --- a/guix/import/pypi.scm +++ b/guix/import/pypi.scm @@ -183,13 +183,14 @@ or #f if there isn't any." (define (python->package-name name) "Given the NAME of a package on PyPI, return a Guix-compliant name for the package." - (cond - ((string-prefix? "python-" name) (snake-case name)) - ((string-suffix? "-python" name) - (string-append "python-" (string-drop-right name 7))) - ((or (string=? "trytond" name) - (string-prefix? "trytond-" name)) (snake-case name)) - (else (string-append "python-" (snake-case name))))) + (let ((name (snake-case name))) + (cond + ((string-prefix? "python-" name) name) + ((string-suffix? "-python" name) + (string-append "python-" (string-drop-right name 7))) + ((or (string=? "trytond" name) + (string-prefix? "trytond-" name)) name) + (else (string-append "python-" name))))) (define (guix-package->pypi-name package) "Given a Python PACKAGE built from pypi.org, return the name of the |