summaryrefslogtreecommitdiff
path: root/module/web/uri.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/web/uri.scm')
-rw-r--r--module/web/uri.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/web/uri.scm b/module/web/uri.scm
index 391a4293b..1eb281380 100644
--- a/module/web/uri.scm
+++ b/module/web/uri.scm
@@ -95,7 +95,7 @@ consistency checks to make sure that the constructed URI is valid."
(define domain-label-regexp
(make-regexp "^[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?$"))
(define top-label-regexp
- (make-regexp "^[a-zA-Z]?([a-zA-Z0-9-]*[a-zA-Z0-9])?$"))
+ (make-regexp "^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$"))
(define (valid-host? host)
(cond