Add BeforeUnloadEvent and PageTransitionEvent

Author: garyb

src/Web/HTML/Event/BeforeUnloadEvent.js

@@ -0,0 +1,15 @@
+"use strict";
+
+exports.returnValue = function (e) {
+  return function () {
+    return e.returnValue;
+  };
+};
+
+exports.setReturnValue = function (v) {
+  return function (e) {
+    return function () {
+      e.returnValue = v;
+    };
+  };
+};

src/Web/HTML/Event/BeforeUnloadEvent.purs

@@ -0,0 +1,20 @@
+module Web.HTML.Event.BeforeUnloadEvent where
+
+import Prelude
+
+import Effect (Effect)
+import Foreign (F, Foreign, unsafeReadTagged)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Types (Event)
+
+foreign import data BeforeUnloadEvent :: Type
+
+toEvent :: BeforeUnloadEvent -> Event
+toEvent = unsafeCoerce
+
+read :: Foreign -> F BeforeUnloadEvent
+read = unsafeReadTagged "BeforeUnloadEvent"
+
+foreign import returnValue :: BeforeUnloadEvent -> Effect String
+
+foreign import setReturnValue :: String -> BeforeUnloadEvent -> Effect Unit

src/Web/HTML/Event/PageTransitionEvent.js

@@ -0,0 +1,5 @@
+"use strict";
+
+exports.persisted = function (e) {
+  return e.persisted;
+};

src/Web/HTML/Event/PageTransitionEvent.purs

@@ -0,0 +1,15 @@
+module Web.HTML.Event.PageTransitionEvent where
+
+import Foreign (F, Foreign, unsafeReadTagged)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Types (Event)
+
+foreign import data PageTransitionEvent :: Type
+
+toEvent :: PageTransitionEvent -> Event
+toEvent = unsafeCoerce
+
+read :: Foreign -> F PageTransitionEvent
+read = unsafeReadTagged "PageTransitionEvent"
+
+foreign import persisted :: PageTransitionEvent -> Boolean