XMLHttpRequestEventTarget.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from xhr (webref). Do not edit.
module GHCJS.DOM.JSFFI.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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.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")