Password prompts for MySQL adduser

[hcoop/domtool2.git] / src / dbms.sig

diff --git a/src/dbms.sig b/src/dbms.sig
index b2a74c0..1107c5e 100644 (file)
--- a/src/dbms.sig
+++ b/src/dbms.sig
@@ -22,7 +22,8 @@ signature DBMS = sig
 
     val validDbname : string -> bool
 
 
     val validDbname : string -> bool
 

-    type handler = {adduser : string -> string option,
+    type handler = {getpass : (unit -> Client.passwd_result) option,
+                   adduser : {user : string, passwd : string option} -> string option,

                    createdb : {user : string, dbname : string} -> string option}
 
     val register : string * handler -> unit
                    createdb : {user : string, dbname : string} -> string option}
 
     val register : string * handler -> unit