refactor: move MessageEventListener to EventTarget

melange-community · Aug 5, 2024 · 3c9a22d · 3c9a22d
1 parent 8983a49
commit 3c9a22d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/src/Webapi/Dom/Webapi__Dom__EventTarget.re b/src/Webapi/Dom/Webapi__Dom__EventTarget.re
@@ -2296,6 +2296,16 @@ module Impl = (T: {
     ) =>
     unit =
     "removeEventListener";
+
+  [@mel.send.pipe: T.t]
+    external addMessageEventListener:
+    ([@mel.as "message"] _, Dom.messageEvent => unit) => unit =
+    "addEventListener";
+
+  [@mel.send.pipe: t]
+    external removeMessageEventListener:
+    ([@mel.as "message"] _, Dom.messageEvent => unit) => unit =
+    "removeEventListener";
 };
 
 include Impl({

diff --git a/src/Webapi/Dom/Webapi__Dom__Worker.re b/src/Webapi/Dom/Webapi__Dom__Worker.re
@@ -9,16 +9,6 @@ include Webapi__Dom__EventTarget.Impl({
 [@mel.send.pipe: t] external postMessage: 'a => unit = "postMessage";
 [@mel.send.pipe: t] external terminate: unit = "terminate";
 
-[@mel.send.pipe: t]
-external addMessageEventListener:
-  ([@mel.as "message"] _, Dom.messageEvent => unit) => unit =
-  "addEventListener";
-
-[@mel.send.pipe: t]
-external removeMessageEventListener:
-  ([@mel.as "message"] _, Dom.messageEvent => unit) => unit =
-  "removeEventListener";
-
 [@mel.set]
 external setOnError: (t, Dom.errorEvent => unit) => unit = "onerror";
 [@mel.set]