Skip to content
Snippets Groups Projects
Commit e3cc793e authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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

* guix/gnu-maintenance.scm (latest-release): Filter out "w32"
directories.
parent 202440e0
No related branches found
No related tags found
No related merge requests found
...@@ -354,11 +354,14 @@ (define (file->source directory file) ...@@ -354,11 +354,14 @@ (define (file->source directory file)
(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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment