{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.WindowEventHandlers (beforeUnload, hashChange, languagechange, message, offline, online, pageHide, pageShow, popState, storage, unload, orientationChange, WindowEventHandlers(..), gTypeWindowEventHandlers, IsWindowEventHandlers, toWindowEventHandlers) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums -- | beforeUnload :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self BeforeUnloadEvent beforeUnload = unsafeEventName (toJSString "beforeunload") -- | hashChange :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self HashChangeEvent hashChange = unsafeEventName (toJSString "hashchange") -- | languagechange :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self Event languagechange = unsafeEventName (toJSString "languagechange") -- | message :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self MessageEvent message = unsafeEventNameAsync (toJSString "message") -- | offline :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self Event offline = unsafeEventName (toJSString "offline") -- | online :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self Event online = unsafeEventName (toJSString "online") -- | pageHide :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self PageTransitionEvent pageHide = unsafeEventName (toJSString "pagehide") -- | pageShow :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self PageTransitionEvent pageShow = unsafeEventName (toJSString "pageshow") -- | popState :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self PopStateEvent popState = unsafeEventName (toJSString "popstate") -- | storage :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self StorageEvent storage = unsafeEventName (toJSString "storage") -- | unload :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self UIEvent unload = unsafeEventName (toJSString "unload") -- | orientationChange :: (IsWindowEventHandlers self, IsEventTarget self) => EventName self Event orientationChange = unsafeEventName (toJSString "orientationchange")