Add PopStateEvent

Author: garyb

src/Web/HTML/Event/PopStateEvent.js

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

src/Web/HTML/Event/PopStateEvent.purs

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