[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: python-build-system: Fix 'get-python-version'.
From: |
Mark H. Weaver |
Subject: |
01/01: python-build-system: Fix 'get-python-version'. |
Date: |
Wed, 05 Aug 2015 08:24:27 +0000 |
mhw pushed a commit to branch python-update
in repository guix.
commit 94ece83378f199a120662257fd5129a547e6f6d6
Author: Mark H Weaver <address@hidden>
Date: Wed Aug 5 04:12:14 2015 -0400
python-build-system: Fix 'get-python-version'.
* guix/build/python-build-system.scm (get-python-version): Rewrite to handle
multiple-digit version number components.
---
guix/build/python-build-system.scm | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/guix/build/python-build-system.scm
b/guix/build/python-build-system.scm
index d008ac2..1ae42c0 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -55,7 +55,10 @@
#t))
(define (get-python-version python)
- (string-take (string-take-right python 5) 3))
+ (let* ((version (last (string-split python #\-)))
+ (components (string-split version #\.))
+ (major+minor (take components 2)))
+ (string-join major+minor ".")))
(define* (install #:key outputs inputs (configure-flags '())
#:allow-other-keys)