diff --git a/src/parsers/command-db-uri.lisp b/src/parsers/command-db-uri.lisp index 6c2b790..ae280ff 100644 --- a/src/parsers/command-db-uri.lisp +++ b/src/parsers/command-db-uri.lisp @@ -89,9 +89,8 @@ (defrule network-label-with-hyphen (and network-label-letters-digit - (+ (or (and #\- (& network-label-letters-digit)) - network-label-letters-digit)) - (! #\-)) + (+ (or (and #\- network-label-letters-digit) + network-label-letters-digit))) (:text t)) (defrule network-label-no-hyphen (+ network-label-letters-digit)