HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Password prompts for MySQL adduser
[hcoop/domtool2.git]
/
src
/
plugins
/
postgres.sml
diff --git
a/src/plugins/postgres.sml
b/src/plugins/postgres.sml
index
87ba252
..
c2539eb
100644
(file)
--- a/
src/plugins/postgres.sml
+++ b/
src/plugins/postgres.sml
@@
-20,7
+20,7
@@
structure Postgres :> POSTGRES = struct
structure Postgres :> POSTGRES = struct
-fun adduser
user
=
+fun adduser
{user, passwd}
=
if Slave.shell [Config.Postgres.adduser, user] then
NONE
else
if Slave.shell [Config.Postgres.adduser, user] then
NONE
else
@@
-32,7
+32,8
@@
fun createdb {user, dbname} =
else
SOME "Error executing CREATE DATABASE script"
else
SOME "Error executing CREATE DATABASE script"
-val _ = Dbms.register ("postgres", {adduser = adduser,
+val _ = Dbms.register ("postgres", {getpass = NONE,
+ adduser = adduser,
createdb = createdb})
end
createdb = createdb})
end