X-Git-Url: https://git.hcoop.net/hcoop/zz_old/domtool2-proto.git/blobdiff_plain/a8be0d6a39845f6aa6bd232646b0ea0153e14af3..a71b2f2bee2981e8918b76eb41c9e60da7bd7b72:/src/dbms.sml

diff --git a/src/dbms.sml b/src/dbms.sml
index fd04fd7..cc00d04 100644
--- a/src/dbms.sml
+++ b/src/dbms.sml
@@ -27,7 +27,8 @@ val validDbname = CharVector.all Char.isAlpha
 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}
+		createdb : {user : string, dbname : string} -> string option,
+		dropdb : {user : string, dbname : string} -> string option}
 	       
 val dbmses : handler StringMap.map ref = ref StringMap.empty