diff options
| -rw-r--r-- | 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 b3240f82a4..ab9577f4fe 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)) |