From 011a26d2c0d618fa993a96e392eee7fd7c931b53 Mon Sep 17 00:00:00 2001 From: Thomas Honeyman Date: Tue, 9 Mar 2021 13:14:54 -0800 Subject: [PATCH 1/3] Add fromEventTarget to Window --- src/Web/HTML/Window.purs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Web/HTML/Window.purs b/src/Web/HTML/Window.purs index 047fac7..0ebb204 100644 --- a/src/Web/HTML/Window.purs +++ b/src/Web/HTML/Window.purs @@ -54,6 +54,9 @@ foreign import data Window :: Type toEventTarget :: Window -> EventTarget toEventTarget = unsafeCoerce +fromEventTarget :: EventTarget -> Maybe Window +fromEventTarget = unsafeReadProtoTagged "Window" + foreign import document :: Window -> Effect HTMLDocument foreign import navigator :: Window -> Effect Navigator From c50ba7a2038c3e168e27e1d674ec9aabe6c50940 Mon Sep 17 00:00:00 2001 From: Thomas Honeyman Date: Tue, 9 Mar 2021 13:17:04 -0800 Subject: [PATCH 2/3] Update changelog --- CHANGELOG.md | 1 + 1 file changed, 1 insertion(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index 1a29096..095bf07 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -7,6 +7,7 @@ Notable changes to this project are documented in this file. The format is based Breaking changes: New features: +- Added `fromEventTarget` function for `Window` (#53 by @thomashoneyman) Bugfixes: From 75d8495cf56bbd1af2f3c5069bc2c7e3407c2c2c Mon Sep 17 00:00:00 2001 From: Thomas Honeyman Date: Sat, 13 Mar 2021 11:48:01 -0800 Subject: [PATCH 3/3] Add import and export --- src/Web/HTML/Window.purs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Web/HTML/Window.purs b/src/Web/HTML/Window.purs index 0ebb204..89ce6a8 100644 --- a/src/Web/HTML/Window.purs +++ b/src/Web/HTML/Window.purs @@ -1,6 +1,7 @@ module Web.HTML.Window ( Window , toEventTarget + , fromEventTarget , document , navigator , location @@ -48,6 +49,7 @@ import Web.HTML.History (History) import Web.HTML.Location (Location) import Web.HTML.Navigator (Navigator) import Web.Storage.Storage (Storage) +import Web.Internal.FFI (unsafeReadProtoTagged) foreign import data Window :: Type