From e478a9ecc2e0d5da0e036dd51645969e2c02d937 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Thu, 15 Jan 2015 13:45:11 -0500
Subject: [PATCH] gnu: teckit: Add alternate source URL.

Fixes <http://bugs.gnu.org/19600>.

* gnu/packages/fontutils.scm (teckit)[source]: Add Fedora mirror.
---
 gnu/packages/fontutils.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index a4da6df553..0f4f109046 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -147,10 +147,19 @@ X11-system or any other graphical user interface.")
    (version "2.5.1")
    (source (origin
             (method url-fetch)
-            (uri (string-append
+            (uri (list
+                  (string-append
                    "http://scripts.sil.org/svn-view/teckit/TAGS/TECkit_"
                    (string-map (lambda (x) (if (char=? x #\.) #\_ x)) version)
-                   ".tar.gz"))
+                   ".tar.gz")
+                  "http://pkgs.fedoraproject.org/repo/pkgs/teckit/TECkit_2_5_1.tar.gz/4913f71f0f42bfd9cf8f161688b35dea/TECkit_2_5_1.tar.gz"
+                  ;; This used to be the canonical URL but it vanished.
+                  ;; See <http://bugs.gnu.org/19600>.
+                  ;; (string-append
+                  ;;  "http://scripts.sil.org/svn-view/teckit/TAGS/TECkit_"
+                  ;;  (string-map (lambda (x) (if (char=? x #\.) #\_ x)) version)
+                  ;;  ".tar.gz")
+                  ))
             (sha256 (base32
                      "0fjiwvic8mdxpkyccfp7zh26y9xnvkp0skqbyfkrjiacd191k82r"))
             (patches (list (search-patch "teckit-cstdio.patch")))))