type standard = [
|
`Normal_closure
`Going_away
`Protocol_error
`Unsupported_data
`No_status_rcvd
`Abnormal_closure
`Invalid_frame_payload_data
`Policy_violation
`Message_too_big
`Mandatory_ext
`Internal_server_error
`TLS_handshake
]
type t = [
standard
`Other of int
val code : t -> int
val of_code : int -> t option
val of_code_exn : int -> t
val to_int : t -> int
val of_int : int -> t option
val of_int_exn : int -> t
