From 75150152f51b21db78bd3cef70b47a5ec98a4c87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 28 Jun 2026 13:26:33 +0200
Subject: Newtype wrappers for some JavaScript values

---
 src/JavaScript/Event.hs | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 src/JavaScript/Event.hs

(limited to 'src/JavaScript/Event.hs')

diff --git a/src/JavaScript/Event.hs b/src/JavaScript/Event.hs
new file mode 100644
index 0000000..4bc61d2
--- /dev/null
+++ b/src/JavaScript/Event.hs
@@ -0,0 +1,38 @@
+module JavaScript.Event (
+    EventTarget, IsEventTarget(..),
+    Event, IsEvent(..),
+    asEventListener,
+    addEventListener,
+) where
+
+import JavaScript.Val
+
+
+newtype EventTarget = EventTarget JSVal
+    deriving (ToJSVal, FromJSVal)
+
+class IsEventTarget a where
+    toEventTarget :: a -> EventTarget
+
+instance IsEventTarget EventTarget where
+    toEventTarget = id
+
+
+newtype Event = Event JSVal
+    deriving (ToJSVal, FromJSVal)
+
+class IsEvent a where
+    toEvent :: a -> Event
+
+instance IsEvent Event where
+    toEvent = id
+
+
+foreign import javascript "wrapper"
+    asEventListener :: (JSVal -> IO ()) -> IO JSVal
+
+addEventListener :: IsEventTarget a => a -> String -> (Event -> IO ()) -> IO ()
+addEventListener target ev cb = do
+    js_addEventListener (toJSVal $ toEventTarget target) (toJSString ev) =<< asEventListener (cb . fromJSValUnchecked)
+foreign import javascript unsafe "$1.addEventListener($2, $3)"
+    js_addEventListener :: JSVal -> JSString -> JSVal -> IO ()
-- 
cgit v1.2.3