diff options
Diffstat (limited to 'src/property/postgres.lisp')
| -rw-r--r-- | src/property/postgres.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/postgres.lisp b/src/property/postgres.lisp index 4eb4dcd..ed2ef32 100644 --- a/src/property/postgres.lisp +++ b/src/property/postgres.lisp @@ -70,7 +70,7 @@ #?"CREATE DATABASE ${db-name};" :unless #?"SELECT 'yes' FROM pg_database WHERE datname = '${db-name}';")) -(defproplist has-owner :posix (database owner) +(defproplist database-has-owner :posix (database owner) (:desc #?"Postgres database ${database} has owner ${owner}") (%run-sql #?"ALTER DATABASE ${database} OWNER TO ${owner}" :unless #?"select 'yes' from pg_database d, pg_authid a @@ -85,7 +85,7 @@ where u.rolname='${user}' and g.rolname='${group}' and m.member=u.oid and m.roleid=g.oid;")) -(defproplist can-login :posix (user) +(defproplist user-can-login :posix (user) "Ensure USER can login to Postgres." (:desc #?"Postgres role ${user} can login to database") (%run-sql #?"ALTER USER ${user} WITH LOGIN;" |