handle OpenSSL.OpenSSL _ => ();
loop ())
- | MsgCreateDbUser dbtype =>
+ | MsgCreateDbUser {dbtype, passwd} =>
(case Dbms.lookup dbtype of
NONE => ((Msg.send (bio, MsgError ("Unknown database type " ^ dbtype));
print ("Database user creation request with unknown datatype type " ^ dbtype);
handle OpenSSL.OpenSSL _ => ();
loop ())
| SOME handler =>
- case #adduser handler user of
+ case #adduser handler {user = user, passwd = passwd} of
NONE => ((Msg.send (bio, MsgOk);
print ("Added " ^ dbtype ^ " user " ^ user ^ ".\n"))
handle OpenSSL.OpenSSL s =>