WorkerGlobalScope.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope
       (js_importScripts, js_getSelf, js_getLocation, js_getNavigator, importScripts, getSelf, getLocation, getNavigator, error, languagechange, offline, online, rejectionhandled, unhandledrejection, securitypolicyviolation, WorkerGlobalScope(..), gTypeWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope)
       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

foreign import javascript safe "(($1, $2) => { return $1[\"importScripts\"](...$2); })"
        js_importScripts :: WorkerGlobalScope -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/importScripts MDN WorkerGlobalScope.importScripts documentation>
importScripts :: (MonadDOM m, IsWorkerGlobalScope self, IsTrustedScriptURLOrString urls) => self -> [urls] -> m ()
importScripts self urls = liftDOM (void (((toJSVal urls) >>= \a2' -> js_importScripts ((Types.toWorkerGlobalScope self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"self\"]; })"
        js_getSelf :: WorkerGlobalScope -> IO WorkerGlobalScope
-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/self MDN WorkerGlobalScope.self documentation>
getSelf :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerGlobalScope
getSelf self = liftDOM ((js_getSelf ((Types.toWorkerGlobalScope self))))

foreign import javascript unsafe "(($1) => { return $1[\"location\"]; })"
        js_getLocation :: WorkerGlobalScope -> IO WorkerLocation
-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/location MDN WorkerGlobalScope.location documentation>
getLocation :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerLocation
getLocation self = liftDOM ((js_getLocation ((Types.toWorkerGlobalScope self))))

foreign import javascript unsafe "(($1) => { return $1[\"navigator\"]; })"
        js_getNavigator :: WorkerGlobalScope -> IO WorkerNavigator
-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/navigator MDN WorkerGlobalScope.navigator documentation>
getNavigator :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerNavigator
getNavigator self = liftDOM ((js_getNavigator ((Types.toWorkerGlobalScope self))))

-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-workerglobalscope-onerror error event>
error :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self Event
error = unsafeEventNameAsync (toJSString "error")

-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-workerglobalscope-onlanguagechange languagechange event>
languagechange :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self Event
languagechange = unsafeEventName (toJSString "languagechange")

-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-workerglobalscope-onoffline offline event>
offline :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self Event
offline = unsafeEventName (toJSString "offline")

-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-workerglobalscope-ononline online event>
online :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self Event
online = unsafeEventName (toJSString "online")

-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-workerglobalscope-onrejectionhandled rejectionhandled event>
rejectionhandled :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self PromiseRejectionEvent
rejectionhandled = unsafeEventName (toJSString "rejectionhandled")

-- | <https://html.spec.whatwg.org/multipage/workers.html#handler-workerglobalscope-onunhandledrejection unhandledrejection event>
unhandledrejection :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self PromiseRejectionEvent
unhandledrejection = unsafeEventName (toJSString "unhandledrejection")

-- | <https://w3c.github.io/webappsec-csp/#eventdef-globaleventhandlers-securitypolicyviolation securitypolicyviolation event>
securitypolicyviolation :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self SecurityPolicyViolationEvent
securitypolicyviolation = unsafeEventName (toJSString "securitypolicyviolation")