ExtendableCookieChangeEventInit.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.ExtendableCookieChangeEventInit
       (newExtendableCookieChangeEventInit, setChanged, getChanged, getChangedUnsafe, getChangedUnchecked, setDeleted, getDeleted, getDeletedUnsafe, getDeletedUnchecked, ExtendableCookieChangeEventInit(..), gTypeExtendableCookieChangeEventInit)
       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-extendablecookiechangeeventinit ExtendableCookieChangeEventInit specification>
newExtendableCookieChangeEventInit :: (MonadDOM m) => m ExtendableCookieChangeEventInit
newExtendableCookieChangeEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>
setChanged :: (MonadDOM m) => ExtendableCookieChangeEventInit -> [CookieListItem] -> m ()
setChanged self val = liftDOM (void (self ^. jss "changed" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>
getChanged :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m (Maybe [CookieListItem])
getChanged self = liftDOM (((self ^. js "changed") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>
getChangedUnsafe :: (MonadDOM m, HasCallStack) => ExtendableCookieChangeEventInit -> m [CookieListItem]
getChangedUnsafe self = liftDOM ((((self ^. js "changed") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-changed ExtendableCookieChangeEventInit.changed specification>
getChangedUnchecked :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m [CookieListItem]
getChangedUnchecked self = liftDOM (((self ^. js "changed") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>
setDeleted :: (MonadDOM m) => ExtendableCookieChangeEventInit -> [CookieListItem] -> m ()
setDeleted self val = liftDOM (void (self ^. jss "deleted" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>
getDeleted :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m (Maybe [CookieListItem])
getDeleted self = liftDOM (((self ^. js "deleted") >>= fromJSValUnchecked))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>
getDeletedUnsafe :: (MonadDOM m, HasCallStack) => ExtendableCookieChangeEventInit -> m [CookieListItem]
getDeletedUnsafe self = liftDOM ((((self ^. js "deleted") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://cookiestore.spec.whatwg.org/#dom-extendablecookiechangeeventinit-deleted ExtendableCookieChangeEventInit.deleted specification>
getDeletedUnchecked :: (MonadDOM m) => ExtendableCookieChangeEventInit -> m [CookieListItem]
getDeletedUnchecked self = liftDOM (((self ^. js "deleted") >>= fromJSValUnchecked))