jsaddle-dom-0.10.0.0: src/JSDOM/Generated/CookieStore.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.CookieStore
       (delete, deleteOptions, get, get_, getUnsafe, getUnchecked, getOptions, getOptions_, getOptionsUnsafe, getOptionsUnchecked, getAll, getAll_, getAllOptions, getAllOptions_, set, setOptions, change, CookieStore(..), gTypeCookieStore)
       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://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>
delete :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()
delete self name = liftDOM (void (((self ^. jsf "delete" [toJSVal name]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>
deleteOptions :: (MonadDOM m) => CookieStore -> CookieStoreDeleteOptions -> m ()
deleteOptions self options = liftDOM (void (((self ^. jsf "delete" [toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
get :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m (Maybe CookieListItem)
get self name = liftDOM (((((self ^. jsf "get" [toJSVal name]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
get_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()
get_ self name = liftDOM (void (((self ^. jsf "get" [toJSVal name]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
getUnsafe :: (MonadDOM m, ToJSString name, HasCallStack) => CookieStore -> name -> m CookieListItem
getUnsafe self name = liftDOM ((((((self ^. jsf "get" [toJSVal name]) >>= readPromise)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
getUnchecked :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m CookieListItem
getUnchecked self name = liftDOM (((((self ^. jsf "get" [toJSVal name]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
getOptions :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m (Maybe CookieListItem)
getOptions self options = liftDOM (((((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
getOptions_ :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m ()
getOptions_ self options = liftDOM (void (((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
getOptionsUnsafe :: (MonadDOM m, HasCallStack) => CookieStore -> Maybe CookieStoreGetOptions -> m CookieListItem
getOptionsUnsafe self options = liftDOM ((((((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/get MDN CookieStore.get documentation>
getOptionsUnchecked :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m CookieListItem
getOptionsUnchecked self options = liftDOM (((((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>
getAll :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m [CookieListItem]
getAll self name = liftDOM (((((self ^. jsf "getAll" [toJSVal name]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>
getAll_ :: (MonadDOM m, ToJSString name) => CookieStore -> name -> m ()
getAll_ self name = liftDOM (void (((self ^. jsf "getAll" [toJSVal name]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>
getAllOptions :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m [CookieListItem]
getAllOptions self options = liftDOM (((((self ^. jsf "getAll" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/getAll MDN CookieStore.getAll documentation>
getAllOptions_ :: (MonadDOM m) => CookieStore -> Maybe CookieStoreGetOptions -> m ()
getAllOptions_ self options = liftDOM (void (((self ^. jsf "getAll" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>
set :: (MonadDOM m, ToJSString name, ToJSString value) => CookieStore -> name -> value -> m ()
set self name value = liftDOM (void (((self ^. jsf "set" [toJSVal name, toJSVal value]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>
setOptions :: (MonadDOM m) => CookieStore -> CookieInit -> m ()
setOptions self options = liftDOM (void (((self ^. jsf "set" [toJSVal options]) >>= readPromise)))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestore-onchange change event>
change :: EventName CookieStore CookieChangeEvent
change = unsafeEventName (toJSString "change")