From 9f6509c655b766b0fb9dfab181a8533e698473b0 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Wed, 5 Aug 2015 04:12:14 -0400
Subject: [PATCH] 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 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm
index d008ac2c69b..1ae42c00b49 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -55,7 +55,10 @@ (define* (check #:key tests? test-target #:allow-other-keys)
#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)
--
GitLab