OpenSSL.writeString (bio, s))
| QFtp s => (OpenSSL.writeInt (bio, 2);
OpenSSL.writeString (bio, s))
+ | QTrustedPath s => (OpenSSL.writeInt (bio, 3);
+ OpenSSL.writeString (bio, s))
fun recvQuery bio =
case OpenSSL.readInt bio of
0 => Option.map QApt (OpenSSL.readString bio)
| 1 => Option.map QCron (OpenSSL.readString bio)
| 2 => Option.map QFtp (OpenSSL.readString bio)
+ | 3 => Option.map QTrustedPath (OpenSSL.readString bio)
| _ => NONE)
| NONE => NONE