+ ["adduser"] =>
+ let
+ val pass = case getpass of
+ NONE => SOME NONE
+ | SOME f =>
+ case f () of
+ Client.Passwd pass => SOME (SOME pass)
+ | Client.Aborted => SOME NONE
+ | Client.Error => NONE
+ in
+ case pass of
+ NONE => ()
+ | SOME pass => Main.requestDbUser {dbtype = dbtype, passwd = pass}
+ end