Merge pull request #133 from coot/popstate-event

Added PopStateEvent

Author: garyb

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

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