diff --git a/src/WebsocketClient.re b/src/WebsocketClient.re index a0066e1..238aff3 100644 --- a/src/WebsocketClient.re +++ b/src/WebsocketClient.re @@ -1,3 +1,9 @@ +module /*Open*/Event = { + type t; + + include EventRe.Impl({ type nonrec t = t; }); +}; + module MessageEvent = { type t; type data('a); @@ -70,14 +76,14 @@ module Websocket = { type t('msg) = {. [@bs.set] "binaryType": string, - [@bs.set] "onopen": MessageEvent.t => unit, + [@bs.set] "onopen": Event.t => unit, [@bs.set] "onerror": MessageEvent.t => unit, [@bs.set] "onclose": CloseEvent.t => unit, [@bs.set] "onmessage": MessageEvent.t => unit, "bufferedAmount": int, "url": string, "protocol": string, - "readyState": string, + "readyState": int, "extensions": string, [@bs.meth] "close": Js.Undefined.t(string) => Js.Undefined.t(string) => unit, [@bs.meth] "send": 'msg => unit