Module Websocket

val accept : string -> string
val request : host:string -> path:string -> key:string -> string
val response : key:string -> string
val handshake : string -> ((string * string) list * int) option
type opcode =
  1. | Continuation
  2. | Text
  3. | Binary
  4. | Close
  5. | Ping
  6. | Pong
type frame = {
  1. fin : bool;
  2. opcode : opcode;
  3. payload : string;
}
val encode : ?mask:string -> frame -> string
type decoded =
  1. | Frame of frame * int
  2. | Incomplete
  3. | Bad of string
val decode : string -> decoded