ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/CookieStore.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from cookiestore (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.CookieStore
       (js_delete, js_deleteOptions, js_get, js_getOptions, js_getAll, js_getAllOptions, js_set, js_setOptions, 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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_delete :: CookieStore -> JSString -> IO (JSVal, ())
-- | <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 (((js_delete (self) (toJSString name)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"delete\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_deleteOptions :: CookieStore -> CookieStoreDeleteOptions -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/delete MDN CookieStore.delete documentation>
deleteOptions :: (MonadDOM m) => CookieStore -> CookieStoreDeleteOptions -> m ()
deleteOptions self options = liftDOM (void (((js_deleteOptions (self) (options)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_get :: CookieStore -> JSString -> IO (JSVal, JSVal)
-- | <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 ((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= 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 (((js_get (self) (toJSString name)) >>= checkPromiseResult)))

-- | <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 (((((js_get (self) (toJSString name)) >>= checkPromiseResult) >>= 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 ((pFromJSVal <$> ((js_get (self) (toJSString name)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"get\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_getOptions :: CookieStore -> JSVal -> IO (JSVal, JSVal)
-- | <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 (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult) >>= 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 ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult)))

-- | <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 ((((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult) >>= 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 ((pFromJSVal <$> (((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getOptions (self) a2') >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_getAll :: CookieStore -> JSString -> IO (JSVal, JSVal)
-- | <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 ((((js_getAll (self) (toJSString name)) >>= checkPromiseResult) >>= 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 (((js_getAll (self) (toJSString name)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"getAll\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_getAllOptions :: CookieStore -> JSVal -> IO (JSVal, JSVal)
-- | <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 (((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAllOptions (self) a2') >>= checkPromiseResult) >>= 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 ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_getAllOptions (self) a2') >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"set\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_set :: CookieStore -> JSString -> JSString -> IO (JSVal, ())
-- | <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 (((js_set (self) (toJSString name) (toJSString value)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"set\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_setOptions :: CookieStore -> CookieInit -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/CookieStore/set MDN CookieStore.set documentation>
setOptions :: (MonadDOM m) => CookieStore -> CookieInit -> m ()
setOptions self options = liftDOM (void (((js_setOptions (self) (options)) >>= checkPromiseResult)))

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