From d75aad0306bd13c54fc5e067305b244726195645 Mon Sep 17 00:00:00 2001 From: Marcin Szamotulski Date: Tue, 7 Nov 2017 18:02:02 +0100 Subject: [PATCH] Added PopStateEvent --- src/DOM/Event/PopstateEvent.purs | 10 ++++++++++ src/DOM/Event/Types.purs | 11 +++++++++++ 2 files changed, 21 insertions(+) create mode 100644 src/DOM/Event/PopstateEvent.purs 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