From 457dd86d66bc1ee1ee13a76d03792396fb69ee34 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 12 Sep 2012 23:47:49 +0200
Subject: Add (guix ftp) and companion modules.

* guix/ftp-client.scm, guix/ftp.scm, guix/build/ftp.scm: New files.
* Makefile.am (MODULES): Add them.

* distro/base.scm (libffi): Use `ftp-fetch'.
---
 distro/base.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'distro')

diff --git a/distro/base.scm b/distro/base.scm
index c0c51ff0bc..3790f48bfd 100644
--- a/distro/base.scm
+++ b/distro/base.scm
@@ -19,6 +19,7 @@
 (define-module (distro base)
   #:use-module (distro)
   #:use-module (guix packages)
+  #:use-module (guix ftp)
   #:use-module (guix http)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system trivial)
@@ -1138,9 +1139,9 @@ extensible.  It supports many SRFIs.")
     (name "libffi")
     (version "3.0.9")
     (source (origin
-             (method http-fetch)
-             (uri ;; FIXME: should be ftp://
-              (string-append "http://sourceware.org/pub/libffi/"
+             (method ftp-fetch)
+             (uri
+              (string-append "ftp://sourceware.org/pub/libffi/"
                              name "-" version ".tar.gz"))
              (sha256
               (base32
-- 
cgit 1.4.1