From 049b2f1d7b651f0dce3048bf36c43e2039fdf271 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 27 Apr 2013 16:26:48 +0200
Subject: [PATCH] gnu-maintenance: Fix `latest-release' for GnuPG.
* guix/gnu-maintenance.scm (latest-release): Filter out directories
whose name does not contain digits early in the process. This fixes
(latest-release "gnupg").
---
guix/gnu-maintenance.scm | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index be739e34a30..c66d5f75cad 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -291,8 +291,12 @@ (define conn (ftp-open server))
(let loop ((directory directory))
(let* ((entries (ftp-list conn directory))
+
+ ;; Filter out sub-directories that do not contain digits---e.g.,
+ ;; /gnuzilla/lang and /gnupg/patches.
(subdirs (filter-map (match-lambda
- ((dir 'directory . _) dir)
+ (((? contains-digit? dir) 'directory . _)
+ dir)
(_ #f))
entries)))
(match subdirs
@@ -307,10 +311,8 @@ (define conn (ftp-open server))
(cut cons <> directory))))
((subdirs ...)
;; Assume that SUBDIRS correspond to versions, and jump into the
- ;; one with the highest version number. Filter out sub-directories
- ;; that do not contain digits---e.g., /gnuzilla/lang.
- (let* ((subdirs (filter contains-digit? subdirs))
- (target (reduce latest #f subdirs)))
+ ;; one with the highest version number.
+ (let ((target (reduce latest #f subdirs)))
(and target
(loop (string-append directory "/" target))))))))))
--
GitLab