01/01: gnu: openssl: When computing URI, use 'string-trim-right' not 'string-take'.

[Mark H. Weaver]

mhw pushed a commit to branch master
in repository guix.

commit 80cc3a0a4a4e3b7deca4d1e3e4533eb400e3fde9
Author: Mark H Weaver <address@hidden>
Date:   Tue Feb 2 21:15:19 2016 -0500

    gnu: openssl: When computing URI, use 'string-trim-right' not 'string-take'.
    
    * gnu/packages/tls.scm (openssl)[source]: When computing URI, use
      'string-trim-right' instead of 'string-take'.
---
 gnu/packages/tls.scm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 821156c..046fbb6 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <address@hidden>
-;;; Copyright © 2014, 2015 Mark H Weaver <address@hidden>
+;;; Copyright © 2014, 2015, 2016 Mark H Weaver <address@hidden>
 ;;; Copyright © 2014 Ian Denhardt <address@hidden>
 ;;; Copyright © 2013, 2015 Andreas Enge <address@hidden>
 ;;; Copyright © 2015 David Thompson <address@hidden>
@@ -186,8 +186,8 @@ required structures.")
             (uri (list (string-append "ftp://ftp.openssl.org/source/";
                                       name "-" version ".tar.gz")
                        (string-append "ftp://ftp.openssl.org/source/old/";
-                                      (string-take version 5) "/"
-                                      name "-" version ".tar.gz")))
+                                      (string-trim-right version 
char-set:letter)
+                                      "/" name "-" version ".tar.gz")))
             (sha256
              (base32
               "1zqb1rff1wikc62a7vj5qxd1k191m8qif5d05mwdxz2wnzywlg72"))