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

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

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

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

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

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

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

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

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