Newtype wrappers for some JavaScript values

1 files changed, 25 insertions, 0 deletions

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