gnu-maintenance: Do not look for releases in "w32" sub-directories.
* guix/gnu-maintenance.scm (latest-release): Filter out "w32" directories.
This commit is contained in:
parent
202440e07a
commit
e3cc793e7c
|
@ -354,11 +354,14 @@ open (resp. close) FTP connections; this can be useful to reuse connections."
|
||||||
(let* ((entries (ftp-list conn directory))
|
(let* ((entries (ftp-list conn directory))
|
||||||
|
|
||||||
;; Filter out sub-directories that do not contain digits---e.g.,
|
;; 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
|
(subdirs (filter-map (match-lambda
|
||||||
(((? patch-directory-name? dir)
|
(((? patch-directory-name? dir)
|
||||||
'directory . _)
|
'directory . _)
|
||||||
#f)
|
#f)
|
||||||
|
(("w32" 'directory . _)
|
||||||
|
#f)
|
||||||
(((? contains-digit? dir) 'directory . _)
|
(((? contains-digit? dir) 'directory . _)
|
||||||
dir)
|
dir)
|
||||||
(_ #f))
|
(_ #f))
|
||||||
|
|
Loading…
Reference in New Issue