diff --git a/src/parsers/command-db-uri.lisp b/src/parsers/command-db-uri.lisp index ded1581..8711c1e 100644 --- a/src/parsers/command-db-uri.lisp +++ b/src/parsers/command-db-uri.lisp @@ -59,7 +59,8 @@ (defrule network-name (and namestring (* (and "." namestring))) (:lambda (name) - (list :host (text name)))) + (let ((host (text name))) + (list :host (unless (string= "" host) host))))) (defrule hostname (or ipv4 socket-directory network-name) (:identity t))