From 75150152f51b21db78bd3cef70b47a5ec98a4c87 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 28 Jun 2026 13:26:33 +0200 Subject: Newtype wrappers for some JavaScript values --- src/JavaScript/Window.hs | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 src/JavaScript/Window.hs (limited to 'src/JavaScript/Window.hs') diff --git a/src/JavaScript/Window.hs b/src/JavaScript/Window.hs new file mode 100644 index 0000000..db30c9d --- /dev/null +++ b/src/JavaScript/Window.hs @@ -0,0 +1,25 @@ +module JavaScript.Window ( + Window, IsWindow(..), + globalWindow, +) where + +import JavaScript.Event +import JavaScript.Val + + +newtype Window = Window JSVal + deriving (ToJSVal, FromJSVal) + +class IsWindow a where + toWindow :: a -> Window + +instance IsWindow Window where + toWindow = id + +instance IsEventTarget Window where + toEventTarget = fromJSValUnchecked . toJSVal + +globalWindow :: Window +globalWindow = Window js_window +foreign import javascript unsafe "window" + js_window :: JSVal -- cgit v1.2.3