Sourceval accept : string -> string Sourceval request : host:string -> path:string -> key:string -> string Sourceval response : key:string -> string Sourceval handshake : string -> ((string * string) list * int) option Sourcetype opcode = | Continuation| Text| Binary| Close| Ping| Pong
Sourcetype frame = {fin : bool;opcode : opcode;payload : string;
} Sourcetype decoded = | Frame of frame * int| Incomplete| Bad of string