06/09: gnu-maintenance: Do not look for releases in "w32" sub-directories.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit e3cc793e7c5a71189564f11ce825735b008871b6
Author: Ludovic Courtès <address@hidden>
Date:   Mon Dec 7 22:45:52 2015 +0100

    gnu-maintenance: Do not look for releases in "w32" sub-directories.
    
    * guix/gnu-maintenance.scm (latest-release): Filter out "w32"
    directories.
---
 guix/gnu-maintenance.scm |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index b3240f8..ab9577f 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -354,11 +354,14 @@ open (resp. close) FTP connections; this can be useful to 
reuse connections."
       (let* ((entries (ftp-list conn directory))
 
              ;; Filter out sub-directories that do not contain digits---e.g.,
-             ;; /gnuzilla/lang and /gnupg/patches.
+             ;; /gnuzilla/lang and /gnupg/patches.  Filter out "w32"
+             ;; directories as found on ftp.gnutls.org.
              (subdirs (filter-map (match-lambda
                                     (((? patch-directory-name? dir)
                                       'directory . _)
                                      #f)
+                                    (("w32" 'directory . _)
+                                     #f)
                                     (((? contains-digit? dir) 'directory . _)
                                      dir)
                                     (_ #f))