SharedWorkerOptions.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.SharedWorkerOptions
       (newSharedWorkerOptions, setExtendedLifetime, getExtendedLifetime, getExtendedLifetimeUnsafe, getExtendedLifetimeUnchecked, setSameSiteCookies, getSameSiteCookies, getSameSiteCookiesUnsafe, getSameSiteCookiesUnchecked, SharedWorkerOptions(..), gTypeSharedWorkerOptions)
       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#sharedworkeroptions SharedWorkerOptions specification>
newSharedWorkerOptions :: (MonadDOM m) => m SharedWorkerOptions
newSharedWorkerOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-sharedworkeroptions-extendedlifetime SharedWorkerOptions.extendedLifetime specification>
setExtendedLifetime :: (MonadDOM m) => SharedWorkerOptions -> Bool -> m ()
setExtendedLifetime self val = liftDOM (void (self ^. jss "extendedLifetime" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-sharedworkeroptions-extendedlifetime SharedWorkerOptions.extendedLifetime specification>
getExtendedLifetime :: (MonadDOM m) => SharedWorkerOptions -> m (Maybe Bool)
getExtendedLifetime self = liftDOM (((self ^. js "extendedLifetime") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-sharedworkeroptions-extendedlifetime SharedWorkerOptions.extendedLifetime specification>
getExtendedLifetimeUnsafe :: (MonadDOM m, HasCallStack) => SharedWorkerOptions -> m Bool
getExtendedLifetimeUnsafe self = liftDOM ((((self ^. js "extendedLifetime") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/workers.html#dom-sharedworkeroptions-extendedlifetime SharedWorkerOptions.extendedLifetime specification>
getExtendedLifetimeUnchecked :: (MonadDOM m) => SharedWorkerOptions -> m Bool
getExtendedLifetimeUnchecked self = liftDOM (((self ^. js "extendedLifetime") >>= valToBool))

-- | <https://privacycg.github.io/saa-non-cookie-storage/#dom-sharedworkeroptions-samesitecookies SharedWorkerOptions.sameSiteCookies specification>
setSameSiteCookies :: (MonadDOM m) => SharedWorkerOptions -> SameSiteCookiesType -> m ()
setSameSiteCookies self val = liftDOM (void (self ^. jss "sameSiteCookies" (toJSVal val)))

-- | <https://privacycg.github.io/saa-non-cookie-storage/#dom-sharedworkeroptions-samesitecookies SharedWorkerOptions.sameSiteCookies specification>
getSameSiteCookies :: (MonadDOM m) => SharedWorkerOptions -> m (Maybe SameSiteCookiesType)
getSameSiteCookies self = liftDOM (((self ^. js "sameSiteCookies") >>= fromJSValUnchecked))

-- | <https://privacycg.github.io/saa-non-cookie-storage/#dom-sharedworkeroptions-samesitecookies SharedWorkerOptions.sameSiteCookies specification>
getSameSiteCookiesUnsafe :: (MonadDOM m, HasCallStack) => SharedWorkerOptions -> m SameSiteCookiesType
getSameSiteCookiesUnsafe self = liftDOM ((((self ^. js "sameSiteCookies") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://privacycg.github.io/saa-non-cookie-storage/#dom-sharedworkeroptions-samesitecookies SharedWorkerOptions.sameSiteCookies specification>
getSameSiteCookiesUnchecked :: (MonadDOM m) => SharedWorkerOptions -> m SameSiteCookiesType
getSameSiteCookiesUnchecked self = liftDOM (((self ^. js "sameSiteCookies") >>= fromJSValUnchecked))