diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-03-10 23:54:17 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-10 23:54:17 +0100 |
commit | e06f7865e2630494a522ac32b9c0a0311be3e1e2 (patch) | |
tree | 1a547ad3a2e4c1b98a67845a9de0dfc798227b5f /guix/gnu-maintenance.scm | |
parent | ff3c0c1b805453990a42f690f148b41b9dff382a (diff) | |
parent | c9c88118a12b0e22b7369b1dc6b0e2f9db894986 (diff) | |
download | guix-patches-e06f7865e2630494a522ac32b9c0a0311be3e1e2.tar guix-patches-e06f7865e2630494a522ac32b9c0a0311be3e1e2.tar.gz |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/gnu-maintenance.scm')
-rw-r--r-- | guix/gnu-maintenance.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 98432a69ce..14195da7ba 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2010, 2011, 2012, 2013 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2010, 2011, 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; ;;; This file is part of GNU Guix. @@ -275,6 +275,10 @@ open (resp. close) FTP connections; this can be useful to reuse connections." (define contains-digit? (cut string-any char-set:digit <>)) + (define patch-directory-name? + ;; Return #t for patch directory names such as 'bash-4.2-patches'. + (cut string-suffix? "patches" <>)) + (let-values (((server directory) (ftp-server/directory project))) (define conn (ftp-open server)) @@ -284,6 +288,9 @@ open (resp. close) FTP connections; this can be useful to reuse connections." ;; Filter out sub-directories that do not contain digits---e.g., ;; /gnuzilla/lang and /gnupg/patches. (subdirs (filter-map (match-lambda + (((? patch-directory-name? dir) + 'directory . _) + #f) (((? contains-digit? dir) 'directory . _) dir) (_ #f)) |