Merge pull request #53 from eskimor/reanimateMessageEvent

Reanimate MessageEvent - got lost
purescript-deprecated · Jun 21, 2016 · 88f8a54 · 88f8a54
2 parents 43b72c8 + 832414d
commit 88f8a54
Showing 1 changed file with 11 additions and 0 deletions.
diff --git 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