else
SOME "Error executing CREATE USER script"
+fun passwd _ = SOME "We don't use PostgreSQL passwords."
+
fun createdb {user, dbname} =
if Slave.shell [Config.Postgres.createdb, user, " ", dbname] then
NONE
val _ = Dbms.register ("postgres", {getpass = NONE,
adduser = adduser,
+ passwd = passwd,
createdb = createdb})
end