Merge pull request #133 from coot/popstate-event

Added PopStateEvent
purescript-deprecated · Nov 12, 2017 · c7669b6 · c7669b6
2 parents e9b48d5 + 975a2f9
commit c7669b6
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/src/DOM/Event/PopstateEvent.purs b/src/DOM/Event/PopstateEvent.purs
@@ -0,0 +1,10 @@
+module DOM.Event.PopstateEvent
+  ( eventToPopStateEvent
+  ) where
+
+import DOM.Event.Types (Event, PopStateEvent, readPopStateEvent)
+import Data.Foreign (F, toForeign)
+import Prelude ((<<<))
+
+eventToPopStateEvent :: Event -> F PopStateEvent
+eventToPopStateEvent = readPopStateEvent <<< toForeign
diff --git a/src/DOM/Event/Types.purs b/src/DOM/Event/Types.purs
@@ -30,6 +30,9 @@ module DOM.Event.Types
   , CompositionEvent
   , compositionEventToEvent
   , readCompositionEvent
+  , PopStateEvent
+  , popStateEventToEvent
+  , readPopStateEvent
   , ProgressEvent
   , progressEventToEvent
   , readProgressEvent
@@ -141,6 +144,14 @@ compositionEventToEvent = U.unsafeCoerce
 readCompositionEvent :: Foreign -> F CompositionEvent
 readCompositionEvent = unsafeReadTagged "CompositionEvent"
 
+foreign import data PopStateEvent :: Type
+
+popStateEventToEvent :: PopStateEvent -> Event
+popStateEventToEvent = U.unsafeCoerce
+
+readPopStateEvent :: Foreign -> F PopStateEvent
+readPopStateEvent = unsafeReadTagged "PopStateEvent"
+
 foreign import data ProgressEvent :: Type
 
 progressEventToEvent :: ProgressEvent -> Event