MySQL password changing
[hcoop/domtool2.git] / src / dbms.sml
index a1f44d7..fd04fd7 100644 (file)
@@ -26,6 +26,7 @@ val validDbname = CharVector.all Char.isAlpha
 
 type handler = {getpass : (unit -> Client.passwd_result) option,
                adduser : {user : string, passwd : string option} -> string option,
 
 type handler = {getpass : (unit -> Client.passwd_result) option,
                adduser : {user : string, passwd : string option} -> string option,
+               passwd : {user : string, passwd : string} -> string option,
                createdb : {user : string, dbname : string} -> string option}
               
 val dbmses : handler StringMap.map ref = ref StringMap.empty
                createdb : {user : string, dbname : string} -> string option}
               
 val dbmses : handler StringMap.map ref = ref StringMap.empty