# Module WebSockets

    module WebSockets: sig .. end

    type readyState =

`|` | `CONNECTING`
`|` | `OPEN`
`|` | `CLOSING`
`|` | `CLOSED`

    class type ['a] closeEvent = object .. end

    class type ['a] messageEvent = object .. end

    class type webSocket = object .. end

    val webSocket : (Js.js_string Js.t -> webSocket Js.t) Js.constr

    val webSocket_withProtocol : (Js.js_string Js.t -> Js.js_string Js.t -> webSocket Js.t)
           Js.constr

    val is_supported : unit -> bool