[PATCH] openssh: Add another mirror.

[Nikita Karetnikov <nikita@karetnikov.org>]

[-- Attachment #1.1: Type: text/plain, Size: 67 bytes --]

The original mirror doesn’t respond.  Please verify and push.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: 0001-openssh-Add-another-mirror.patch --]
[-- Type: text/x-diff, Size: 1346 bytes --]

From cbac7ff6ef8f7c02d01331b77511ba8c9dadc45d Mon Sep 17 00:00:00 2001
From: Nikita Karetnikov <nikita@karetnikov.org>
Date: Sat, 12 Apr 2014 16:18:45 +0400
Subject: [PATCH] openssh: Add another mirror.

* gnu/packages/ssh.scm (openssh): Add the mirror.
---
 gnu/packages/ssh.scm |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index a952890..08677e8 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -141,9 +141,11 @@ a server that supports the SSH-2 protocol.")
    (version "6.6p1")
    (source (origin
             (method url-fetch)
-            (uri (string-append
-                   "ftp://ftp.fr.openbsd.org/pub/OpenBSD/OpenSSH/portable/openssh-"
-                   version ".tar.gz"))
+            (uri (let ((tail (string-append name "-" version ".tar.gz")))
+                   (list (string-append "ftp://ftp.fr.openbsd.org/pub/OpenBSD/OpenSSH/portable/"
+                                        tail)
+                         (string-append "ftp://ftp2.fr.openbsd.org/pub/OpenBSD/OpenSSH/portable/"
+                                        tail))))
             (sha256 (base32
                      "1fq3w86q05y5nn6z878wm312k0svaprw8k007188fd259dkg1ha8"))))
    (build-system gnu-build-system)
-- 
1.7.2.5


[-- Attachment #2: Type: application/pgp-signature, Size: 835 bytes --]