From 279ec1df202698d94c7992162621f6f7c00a7695 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 12 Nov 2015 23:08:43 +0100
Subject: [PATCH] ftp-client: Restrict to TCP connections.

* guix/ftp-client.scm (ftp-open): Force SOCK_STREAM as the socket type
  to avoid calling 'connect' on a datagram socket.
---
 guix/ftp-client.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/ftp-client.scm b/guix/ftp-client.scm
index 37feb895a5..e98708ac4d 100644
--- a/guix/ftp-client.scm
+++ b/guix/ftp-client.scm
@@ -95,7 +95,7 @@ (define addresses
 
   (let loop ((addresses addresses))
     (let* ((ai (car addresses))
-           (s  (socket (addrinfo:fam ai) (addrinfo:socktype ai)
+           (s  (socket (addrinfo:fam ai) SOCK_STREAM ;TCP only
                        (addrinfo:protocol ai))))
 
       (catch 'system-error