diff --git a/src/DOM/Event/PopstateEvent.purs b/src/DOM/Event/PopstateEvent.purs
new file mode 100644
index 0000000..ea411c3
--- /dev/null
+++ 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
index 95ad807..1f12d0b 100644
--- 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