WorkerGlobalScope.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.WorkerGlobalScope
       (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 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://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 ((Types.toWorkerGlobalScope self) ^. jsf "importScripts" ([] ++ P.map toJSVal urls)))

-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/self MDN WorkerGlobalScope.self documentation>
getSelf :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerGlobalScope
getSelf self = liftDOM ((((Types.toWorkerGlobalScope self) ^. js "self") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/location MDN WorkerGlobalScope.location documentation>
getLocation :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerLocation
getLocation self = liftDOM ((((Types.toWorkerGlobalScope self) ^. js "location") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/WorkerGlobalScope/navigator MDN WorkerGlobalScope.navigator documentation>
getNavigator :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerNavigator
getNavigator self = liftDOM ((((Types.toWorkerGlobalScope self) ^. js "navigator") >>= fromJSValUnchecked))

-- | <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")