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