From 80cc3a0a4a4e3b7deca4d1e3e4533eb400e3fde9 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Tue, 2 Feb 2016 21:15:19 -0500
Subject: 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 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 821156c9d2..046fbb6ca8 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 <ludo@gnu.org>
-;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
@@ -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"))
-- 
cgit v1.2.3