OpenSSL.writeString (bio, dom))
| MsgDescription s => (OpenSSL.writeInt (bio, 40);
OpenSSL.writeString (bio, s))
+ | MsgReUsers => OpenSSL.writeInt (bio, 41)
fun checkIt v =
case v of
| 38 => SOME MsgMysqlFixperms
| 39 => Option.map MsgDescribe (OpenSSL.readString bio)
| 40 => Option.map MsgDescription (OpenSSL.readString bio)
+ | 41 => SOME MsgReUsers
| _ => NONE)
end