MySQL re-granting

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

diff --git a/src/dbms.sml b/src/dbms.sml
index cc00d04..0b40b26 100644 (file)
--- a/src/dbms.sml
+++ b/src/dbms.sml
@@ -28,7 +28,8 @@ 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,
-               dropdb : {user : string, dbname : string} -> string option}
+               dropdb : {user : string, dbname : string} -> string option,
+               grant : {user : string, dbname : string} -> string option}
               
 val dbmses : handler StringMap.map ref = ref StringMap.empty