From 832414d994816ecb6487f0f647c8b356bbfc244a Mon Sep 17 00:00:00 2001 From: Robert Klotzner Date: Mon, 20 Jun 2016 13:04:45 +0200 Subject: [PATCH] Reanimate MessageEvent - got lost --- src/DOM/Websocket/Event/Types.purs | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/DOM/Websocket/Event/Types.purs b/src/DOM/Websocket/Event/Types.purs index 4e0b8b3..58cbfbc 100644 --- a/src/DOM/Websocket/Event/Types.purs +++ b/src/DOM/Websocket/Event/Types.purs @@ -15,3 +15,14 @@ readCloseEvent = unsafeReadTagged "CloseEvent" instance isForeignCloseEvent :: IsForeign CloseEvent where read = readCloseEvent + +foreign import data MessageEvent :: * + +messageEventToEvent :: MessageEvent -> Event +messageEventToEvent = U.unsafeCoerce + +readMessageEvent :: Foreign -> F MessageEvent +readMessageEvent = unsafeReadTagged "MessageEvent" + +instance isForeignMessageEvent :: IsForeign MessageEvent where + read = readMessageEvent