{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.XMLHttpRequestEventTarget
(loadStart, progress, abortEvent, error, load, timeout, loadEnd,
XMLHttpRequestEventTarget(..), gTypeXMLHttpRequestEventTarget,
IsXMLHttpRequestEventTarget, toXMLHttpRequestEventTarget)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
loadStart ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self ProgressEvent
loadStart :: EventName self ProgressEvent
loadStart = DOMString -> EventName self ProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"loadstart")
progress ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self XMLHttpRequestProgressEvent
progress :: EventName self XMLHttpRequestProgressEvent
progress = DOMString -> EventName self XMLHttpRequestProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"progress")
abortEvent ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self XMLHttpRequestProgressEvent
abortEvent :: EventName self XMLHttpRequestProgressEvent
abortEvent = DOMString -> EventName self XMLHttpRequestProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"abort")
error ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self XMLHttpRequestProgressEvent
error :: EventName self XMLHttpRequestProgressEvent
error = DOMString -> EventName self XMLHttpRequestProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"error")
load ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self XMLHttpRequestProgressEvent
load :: EventName self XMLHttpRequestProgressEvent
load = DOMString -> EventName self XMLHttpRequestProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"load")
timeout ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self ProgressEvent
timeout :: EventName self ProgressEvent
timeout = DOMString -> EventName self ProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"timeout")
loadEnd ::
(IsXMLHttpRequestEventTarget self, IsEventTarget self) =>
EventName self ProgressEvent
loadEnd :: EventName self ProgressEvent
loadEnd = DOMString -> EventName self ProgressEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"loadend")