CookieStoreDeleteOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from cookiestore (webref). Do not edit.
module JSDOM.Generated.CookieStoreDeleteOptions
       (newCookieStoreDeleteOptions, setName, getName, setDomain, getDomain, getDomainUnsafe, getDomainUnchecked, setPath, getPath, getPathUnsafe, getPathUnchecked, setPartitioned, getPartitioned, getPartitionedUnsafe, getPartitionedUnchecked, CookieStoreDeleteOptions(..), gTypeCookieStoreDeleteOptions)
       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://cookiestore.spec.whatwg.org/#dictdef-cookiestoredeleteoptions CookieStoreDeleteOptions specification>
newCookieStoreDeleteOptions :: (MonadDOM m, ToJSString name) => name -> m CookieStoreDeleteOptions
newCookieStoreDeleteOptions name = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "name" (toJSVal name)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-name CookieStoreDeleteOptions.name specification>
setName :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-name CookieStoreDeleteOptions.name specification>
getName :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result
getName self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>
setDomain :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> Maybe val -> m ()
setDomain self val = liftDOM (void (self ^. jss "domain" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>
getDomain :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result)
getDomain self = liftDOM (((self ^. js "domain") >>= fromMaybeJSString))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>
getDomainUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreDeleteOptions -> m result
getDomainUnsafe self = liftDOM ((((self ^. js "domain") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-domain CookieStoreDeleteOptions.domain specification>
getDomainUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result
getDomainUnchecked self = liftDOM (((self ^. js "domain") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>
setPath :: (MonadDOM m, ToJSString val) => CookieStoreDeleteOptions -> val -> m ()
setPath self val = liftDOM (void (self ^. jss "path" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>
getPath :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m (Maybe result)
getPath self = liftDOM (((self ^. js "path") >>= fromMaybeJSString))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>
getPathUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CookieStoreDeleteOptions -> m result
getPathUnsafe self = liftDOM ((((self ^. js "path") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-path CookieStoreDeleteOptions.path specification>
getPathUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreDeleteOptions -> m result
getPathUnchecked self = liftDOM (((self ^. js "path") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>
setPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> Bool -> m ()
setPartitioned self val = liftDOM (void (self ^. jss "partitioned" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>
getPartitioned :: (MonadDOM m) => CookieStoreDeleteOptions -> m (Maybe Bool)
getPartitioned self = liftDOM (((self ^. js "partitioned") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>
getPartitionedUnsafe :: (MonadDOM m, HasCallStack) => CookieStoreDeleteOptions -> m Bool
getPartitionedUnsafe self = liftDOM ((((self ^. js "partitioned") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoredeleteoptions-partitioned CookieStoreDeleteOptions.partitioned specification>
getPartitionedUnchecked :: (MonadDOM m) => CookieStoreDeleteOptions -> m Bool
getPartitionedUnchecked self = liftDOM (((self ^. js "partitioned") >>= valToBool))