WorkerOptions.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.WorkerOptions
       (newWorkerOptions, setName, getName, getNameUnsafe, getNameUnchecked, setType, getType, getTypeUnsafe, getTypeUnchecked, setCredentials, getCredentials, getCredentialsUnsafe, getCredentialsUnchecked, WorkerOptions(..), gTypeWorkerOptions, IsWorkerOptions, toWorkerOptions)
       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://html.spec.whatwg.org/multipage/workers.html#workeroptions WorkerOptions specification>
newWorkerOptions :: (MonadDOM m) => m WorkerOptions
newWorkerOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-name WorkerOptions.name specification>
setName :: (MonadDOM m, IsWorkerOptions self, ToJSString val) => self -> val -> m ()
setName self val = liftDOM (void ((Types.toWorkerOptions self) ^. jss "name" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-name WorkerOptions.name specification>
getName :: (MonadDOM m, IsWorkerOptions self, FromJSString result) => self -> m (Maybe result)
getName self = liftDOM ((((Types.toWorkerOptions self) ^. js "name") >>= fromMaybeJSString))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-name WorkerOptions.name specification>
getNameUnsafe :: (MonadDOM m, IsWorkerOptions self, HasCallStack, FromJSString result) => self -> m result
getNameUnsafe self = liftDOM (((((Types.toWorkerOptions self) ^. js "name") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-name WorkerOptions.name specification>
getNameUnchecked :: (MonadDOM m, IsWorkerOptions self, FromJSString result) => self -> m result
getNameUnchecked self = liftDOM ((((Types.toWorkerOptions self) ^. js "name") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-type WorkerOptions.type specification>
setType :: (MonadDOM m, IsWorkerOptions self) => self -> WorkerType -> m ()
setType self val = liftDOM (void ((Types.toWorkerOptions self) ^. jss "type" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-type WorkerOptions.type specification>
getType :: (MonadDOM m, IsWorkerOptions self) => self -> m (Maybe WorkerType)
getType self = liftDOM ((((Types.toWorkerOptions self) ^. js "type") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-type WorkerOptions.type specification>
getTypeUnsafe :: (MonadDOM m, IsWorkerOptions self, HasCallStack) => self -> m WorkerType
getTypeUnsafe self = liftDOM (((((Types.toWorkerOptions self) ^. js "type") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-type WorkerOptions.type specification>
getTypeUnchecked :: (MonadDOM m, IsWorkerOptions self) => self -> m WorkerType
getTypeUnchecked self = liftDOM ((((Types.toWorkerOptions self) ^. js "type") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-credentials WorkerOptions.credentials specification>
setCredentials :: (MonadDOM m, IsWorkerOptions self) => self -> RequestCredentials -> m ()
setCredentials self val = liftDOM (void ((Types.toWorkerOptions self) ^. jss "credentials" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-credentials WorkerOptions.credentials specification>
getCredentials :: (MonadDOM m, IsWorkerOptions self) => self -> m (Maybe RequestCredentials)
getCredentials self = liftDOM ((((Types.toWorkerOptions self) ^. js "credentials") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-credentials WorkerOptions.credentials specification>
getCredentialsUnsafe :: (MonadDOM m, IsWorkerOptions self, HasCallStack) => self -> m RequestCredentials
getCredentialsUnsafe self = liftDOM (((((Types.toWorkerOptions self) ^. js "credentials") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-workeroptions-credentials WorkerOptions.credentials specification>
getCredentialsUnchecked :: (MonadDOM m, IsWorkerOptions self) => self -> m RequestCredentials
getCredentialsUnchecked self = liftDOM ((((Types.toWorkerOptions self) ^. js "credentials") >>= fromJSValUnchecked))