From cf4e6d2b8a8904f25a015db60dc7b2c6380e477c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 29 Aug 2015 19:11:06 -0600 Subject: [PATCH] distro-build/config: fix string checking for uppercase --- distro-build-server/config.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/distro-build-server/config.rkt b/distro-build-server/config.rkt index 21dc7de..7f5a424 100644 --- a/distro-build-server/config.rkt +++ b/distro-build-server/config.rkt @@ -182,7 +182,7 @@ (and (string? s) ;; No spaces, quotes, or other things that could ;; break a command-line, path, or URL construction: - (regexp-match #rx"^[-a-zA-A0-9.]*$" s))) + (regexp-match #rx"^[-a-zA-Z0-9.]*$" s))) (define (email? s) (and (string? s)