Fix parsing empty hostname fields in pgpass.

Fixes #823.
This commit is contained in:
Dimitri Fontaine 2018-08-14 10:06:45 +03:00
parent 34cc25383a
commit 1ee389d121

View File

@ -19,11 +19,11 @@
(pgpass-char-p character))))
(:lambda (e) (text e)))
(defrule pgpass-line (and pgpass-entry #\: pgpass-entry #\:
(defrule pgpass-line (and (? pgpass-entry) #\: pgpass-entry #\:
pgpass-entry #\: pgpass-entry #\:
(? pgpass-entry))
(:lambda (pl)
(make-pgpass :hostname (first pl)
(make-pgpass :hostname (or (first pl) "localhost")
:port (third pl)
:database (fifth pl)
:username (seventh pl)