| MsgGrantDb {dbtype, dbname} => (OpenSSL.writeInt (bio, 37);
OpenSSL.writeString (bio, dbtype);
OpenSSL.writeString (bio, dbname))
+ | MsqMysqlFixperms => OpenSSL.writeInt (bio, 38)
fun checkIt v =
case v of
(SOME dbtype, SOME dbname) =>
SOME (MsgGrantDb {dbtype = dbtype, dbname = dbname})
| _ => NONE)
+ | 38 => SOME MsgMysqlFixperms
| _ => NONE)
end