XMLHttpRequestEventTarget.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from xhr (webref). Do not edit.
module JSDOM.Generated.XMLHttpRequestEventTarget
       (loadStart, progress, abortEvent, error, load, timeout, loadEnd, XMLHttpRequestEventTarget(..), gTypeXMLHttpRequestEventTarget, IsXMLHttpRequestEventTarget, toXMLHttpRequestEventTarget)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://xhr.spec.whatwg.org/#handler-xhr-onloadstart loadstart event>
loadStart :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
loadStart = unsafeEventNameAsync (toJSString "loadstart")

-- | <https://xhr.spec.whatwg.org/#handler-xhr-onprogress progress event>
progress :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
progress = unsafeEventNameAsync (toJSString "progress")

-- | <https://xhr.spec.whatwg.org/#handler-xhr-onabort abort event>
abortEvent :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
abortEvent = unsafeEventNameAsync (toJSString "abort")

-- | <https://xhr.spec.whatwg.org/#handler-xhr-onerror error event>
error :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
error = unsafeEventNameAsync (toJSString "error")

-- | <https://xhr.spec.whatwg.org/#handler-xhr-onload load event>
load :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
load = unsafeEventNameAsync (toJSString "load")

-- | <https://xhr.spec.whatwg.org/#handler-xhr-ontimeout timeout event>
timeout :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
timeout = unsafeEventNameAsync (toJSString "timeout")

-- | <https://xhr.spec.whatwg.org/#handler-xhr-onloadend loadend event>
loadEnd :: (IsXMLHttpRequestEventTarget self, IsEventTarget self) => EventName self ProgressEvent
loadEnd = unsafeEventNameAsync (toJSString "loadend")