Merge pull request #53 from eskimor/reanimateMessageEvent

Reanimate MessageEvent - got lost

Author: garyb

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