CookieStoreGetOptions.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.CookieStoreGetOptions
       (newCookieStoreGetOptions, setName, getName, getNameUnsafe, getNameUnchecked, setUrl, getUrl, getUrlUnsafe, getUrlUnchecked, CookieStoreGetOptions(..), gTypeCookieStoreGetOptions)
       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-cookiestoregetoptions CookieStoreGetOptions specification>
newCookieStoreGetOptions :: (MonadDOM m) => m CookieStoreGetOptions
newCookieStoreGetOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

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

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

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

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

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>
setUrl :: (MonadDOM m, ToJSString val) => CookieStoreGetOptions -> val -> m ()
setUrl self val = liftDOM (void (self ^. jss "url" (toJSVal val)))

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>
getUrl :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m (Maybe result)
getUrl self = liftDOM (((self ^. js "url") >>= fromMaybeJSString))

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

-- | <https://cookiestore.spec.whatwg.org/#dom-cookiestoregetoptions-url CookieStoreGetOptions.url specification>
getUrlUnchecked :: (MonadDOM m, FromJSString result) => CookieStoreGetOptions -> m result
getUrlUnchecked self = liftDOM (((self ^. js "url") >>= fromJSValUnchecked))