jsaddle-dom-0.10.0.0: src/JSDOM/Generated/RequestInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fetch (webref). Do not edit.
module JSDOM.Generated.RequestInit
       (newRequestInit, setMethod, getMethod, getMethodUnsafe, getMethodUnchecked, setHeaders, getHeaders, getHeadersUnsafe, getHeadersUnchecked, setBody, getBody, getBodyUnsafe, getBodyUnchecked, setReferrer, getReferrer, getReferrerUnsafe, getReferrerUnchecked, setReferrerPolicy, getReferrerPolicy, getReferrerPolicyUnsafe, getReferrerPolicyUnchecked, setMode, getMode, getModeUnsafe, getModeUnchecked, setCredentials, getCredentials, getCredentialsUnsafe, getCredentialsUnchecked, setCache, getCache, getCacheUnsafe, getCacheUnchecked, setRedirect, getRedirect, getRedirectUnsafe, getRedirectUnchecked, setIntegrity, getIntegrity, getIntegrityUnsafe, getIntegrityUnchecked, setKeepalive, getKeepalive, getKeepaliveUnsafe, getKeepaliveUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setDuplex, getDuplex, getDuplexUnsafe, getDuplexUnchecked, setPriority, getPriority, getPriorityUnsafe, getPriorityUnchecked, setWindow, getWindow, setTargetAddressSpace, getTargetAddressSpace, getTargetAddressSpaceUnsafe, getTargetAddressSpaceUnchecked, setPrivateToken, getPrivateToken, getPrivateTokenUnsafe, getPrivateTokenUnchecked, RequestInit(..), gTypeRequestInit)
       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://fetch.spec.whatwg.org/#requestinit RequestInit specification>
newRequestInit :: (MonadDOM m) => m RequestInit
newRequestInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-method RequestInit.method specification>
setMethod :: (MonadDOM m, ToJSString val) => RequestInit -> val -> m ()
setMethod self val = liftDOM (void (self ^. jss "method" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-method RequestInit.method specification>
getMethod :: (MonadDOM m, FromJSString result) => RequestInit -> m (Maybe result)
getMethod self = liftDOM (((self ^. js "method") >>= fromMaybeJSString))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-method RequestInit.method specification>
getMethodUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RequestInit -> m result
getMethodUnsafe self = liftDOM ((((self ^. js "method") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-method RequestInit.method specification>
getMethodUnchecked :: (MonadDOM m, FromJSString result) => RequestInit -> m result
getMethodUnchecked self = liftDOM (((self ^. js "method") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-headers RequestInit.headers specification>
setHeaders :: (MonadDOM m, IsHeadersInit val) => RequestInit -> val -> m ()
setHeaders self val = liftDOM (void (self ^. jss "headers" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-headers RequestInit.headers specification>
getHeaders :: (MonadDOM m) => RequestInit -> m (Maybe HeadersInit)
getHeaders self = liftDOM (((self ^. js "headers") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-headers RequestInit.headers specification>
getHeadersUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m HeadersInit
getHeadersUnsafe self = liftDOM ((((self ^. js "headers") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-headers RequestInit.headers specification>
getHeadersUnchecked :: (MonadDOM m) => RequestInit -> m HeadersInit
getHeadersUnchecked self = liftDOM (((self ^. js "headers") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-body RequestInit.body specification>
setBody :: (MonadDOM m, IsBodyInit val) => RequestInit -> Maybe val -> m ()
setBody self val = liftDOM (void (self ^. jss "body" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-body RequestInit.body specification>
getBody :: (MonadDOM m) => RequestInit -> m (Maybe BodyInit)
getBody self = liftDOM (((self ^. js "body") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-body RequestInit.body specification>
getBodyUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m BodyInit
getBodyUnsafe self = liftDOM ((((self ^. js "body") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-body RequestInit.body specification>
getBodyUnchecked :: (MonadDOM m) => RequestInit -> m BodyInit
getBodyUnchecked self = liftDOM (((self ^. js "body") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrer RequestInit.referrer specification>
setReferrer :: (MonadDOM m, ToJSString val) => RequestInit -> val -> m ()
setReferrer self val = liftDOM (void (self ^. jss "referrer" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrer RequestInit.referrer specification>
getReferrer :: (MonadDOM m, FromJSString result) => RequestInit -> m (Maybe result)
getReferrer self = liftDOM (((self ^. js "referrer") >>= fromMaybeJSString))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrer RequestInit.referrer specification>
getReferrerUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RequestInit -> m result
getReferrerUnsafe self = liftDOM ((((self ^. js "referrer") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrer RequestInit.referrer specification>
getReferrerUnchecked :: (MonadDOM m, FromJSString result) => RequestInit -> m result
getReferrerUnchecked self = liftDOM (((self ^. js "referrer") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrerpolicy RequestInit.referrerPolicy specification>
setReferrerPolicy :: (MonadDOM m) => RequestInit -> ReferrerPolicy -> m ()
setReferrerPolicy self val = liftDOM (void (self ^. jss "referrerPolicy" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrerpolicy RequestInit.referrerPolicy specification>
getReferrerPolicy :: (MonadDOM m) => RequestInit -> m (Maybe ReferrerPolicy)
getReferrerPolicy self = liftDOM (((self ^. js "referrerPolicy") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrerpolicy RequestInit.referrerPolicy specification>
getReferrerPolicyUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m ReferrerPolicy
getReferrerPolicyUnsafe self = liftDOM ((((self ^. js "referrerPolicy") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-referrerpolicy RequestInit.referrerPolicy specification>
getReferrerPolicyUnchecked :: (MonadDOM m) => RequestInit -> m ReferrerPolicy
getReferrerPolicyUnchecked self = liftDOM (((self ^. js "referrerPolicy") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-mode RequestInit.mode specification>
setMode :: (MonadDOM m) => RequestInit -> RequestMode -> m ()
setMode self val = liftDOM (void (self ^. jss "mode" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-mode RequestInit.mode specification>
getMode :: (MonadDOM m) => RequestInit -> m (Maybe RequestMode)
getMode self = liftDOM (((self ^. js "mode") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-mode RequestInit.mode specification>
getModeUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m RequestMode
getModeUnsafe self = liftDOM ((((self ^. js "mode") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-mode RequestInit.mode specification>
getModeUnchecked :: (MonadDOM m) => RequestInit -> m RequestMode
getModeUnchecked self = liftDOM (((self ^. js "mode") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-credentials RequestInit.credentials specification>
setCredentials :: (MonadDOM m) => RequestInit -> RequestCredentials -> m ()
setCredentials self val = liftDOM (void (self ^. jss "credentials" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-credentials RequestInit.credentials specification>
getCredentials :: (MonadDOM m) => RequestInit -> m (Maybe RequestCredentials)
getCredentials self = liftDOM (((self ^. js "credentials") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-credentials RequestInit.credentials specification>
getCredentialsUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m RequestCredentials
getCredentialsUnsafe self = liftDOM ((((self ^. js "credentials") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-credentials RequestInit.credentials specification>
getCredentialsUnchecked :: (MonadDOM m) => RequestInit -> m RequestCredentials
getCredentialsUnchecked self = liftDOM (((self ^. js "credentials") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-cache RequestInit.cache specification>
setCache :: (MonadDOM m) => RequestInit -> RequestCache -> m ()
setCache self val = liftDOM (void (self ^. jss "cache" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-cache RequestInit.cache specification>
getCache :: (MonadDOM m) => RequestInit -> m (Maybe RequestCache)
getCache self = liftDOM (((self ^. js "cache") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-cache RequestInit.cache specification>
getCacheUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m RequestCache
getCacheUnsafe self = liftDOM ((((self ^. js "cache") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-cache RequestInit.cache specification>
getCacheUnchecked :: (MonadDOM m) => RequestInit -> m RequestCache
getCacheUnchecked self = liftDOM (((self ^. js "cache") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-redirect RequestInit.redirect specification>
setRedirect :: (MonadDOM m) => RequestInit -> RequestRedirect -> m ()
setRedirect self val = liftDOM (void (self ^. jss "redirect" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-redirect RequestInit.redirect specification>
getRedirect :: (MonadDOM m) => RequestInit -> m (Maybe RequestRedirect)
getRedirect self = liftDOM (((self ^. js "redirect") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-redirect RequestInit.redirect specification>
getRedirectUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m RequestRedirect
getRedirectUnsafe self = liftDOM ((((self ^. js "redirect") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-redirect RequestInit.redirect specification>
getRedirectUnchecked :: (MonadDOM m) => RequestInit -> m RequestRedirect
getRedirectUnchecked self = liftDOM (((self ^. js "redirect") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-integrity RequestInit.integrity specification>
setIntegrity :: (MonadDOM m, ToJSString val) => RequestInit -> val -> m ()
setIntegrity self val = liftDOM (void (self ^. jss "integrity" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-integrity RequestInit.integrity specification>
getIntegrity :: (MonadDOM m, FromJSString result) => RequestInit -> m (Maybe result)
getIntegrity self = liftDOM (((self ^. js "integrity") >>= fromMaybeJSString))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-integrity RequestInit.integrity specification>
getIntegrityUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RequestInit -> m result
getIntegrityUnsafe self = liftDOM ((((self ^. js "integrity") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-integrity RequestInit.integrity specification>
getIntegrityUnchecked :: (MonadDOM m, FromJSString result) => RequestInit -> m result
getIntegrityUnchecked self = liftDOM (((self ^. js "integrity") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-keepalive RequestInit.keepalive specification>
setKeepalive :: (MonadDOM m) => RequestInit -> Bool -> m ()
setKeepalive self val = liftDOM (void (self ^. jss "keepalive" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-keepalive RequestInit.keepalive specification>
getKeepalive :: (MonadDOM m) => RequestInit -> m (Maybe Bool)
getKeepalive self = liftDOM (((self ^. js "keepalive") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-keepalive RequestInit.keepalive specification>
getKeepaliveUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m Bool
getKeepaliveUnsafe self = liftDOM ((((self ^. js "keepalive") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-keepalive RequestInit.keepalive specification>
getKeepaliveUnchecked :: (MonadDOM m) => RequestInit -> m Bool
getKeepaliveUnchecked self = liftDOM (((self ^. js "keepalive") >>= valToBool))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-signal RequestInit.signal specification>
setSignal :: (MonadDOM m, IsAbortSignal val) => RequestInit -> Maybe val -> m ()
setSignal self val = liftDOM (void (self ^. jss "signal" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-signal RequestInit.signal specification>
getSignal :: (MonadDOM m) => RequestInit -> m (Maybe AbortSignal)
getSignal self = liftDOM (((self ^. js "signal") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-signal RequestInit.signal specification>
getSignalUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m AbortSignal
getSignalUnsafe self = liftDOM ((((self ^. js "signal") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-signal RequestInit.signal specification>
getSignalUnchecked :: (MonadDOM m) => RequestInit -> m AbortSignal
getSignalUnchecked self = liftDOM (((self ^. js "signal") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-duplex RequestInit.duplex specification>
setDuplex :: (MonadDOM m) => RequestInit -> RequestDuplex -> m ()
setDuplex self val = liftDOM (void (self ^. jss "duplex" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-duplex RequestInit.duplex specification>
getDuplex :: (MonadDOM m) => RequestInit -> m (Maybe RequestDuplex)
getDuplex self = liftDOM (((self ^. js "duplex") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-duplex RequestInit.duplex specification>
getDuplexUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m RequestDuplex
getDuplexUnsafe self = liftDOM ((((self ^. js "duplex") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-duplex RequestInit.duplex specification>
getDuplexUnchecked :: (MonadDOM m) => RequestInit -> m RequestDuplex
getDuplexUnchecked self = liftDOM (((self ^. js "duplex") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-priority RequestInit.priority specification>
setPriority :: (MonadDOM m) => RequestInit -> RequestPriority -> m ()
setPriority self val = liftDOM (void (self ^. jss "priority" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-priority RequestInit.priority specification>
getPriority :: (MonadDOM m) => RequestInit -> m (Maybe RequestPriority)
getPriority self = liftDOM (((self ^. js "priority") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-priority RequestInit.priority specification>
getPriorityUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m RequestPriority
getPriorityUnsafe self = liftDOM ((((self ^. js "priority") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-priority RequestInit.priority specification>
getPriorityUnchecked :: (MonadDOM m) => RequestInit -> m RequestPriority
getPriorityUnchecked self = liftDOM (((self ^. js "priority") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-window RequestInit.window specification>
setWindow :: (MonadDOM m) => RequestInit -> JSVal -> m ()
setWindow self val = liftDOM (void (self ^. jss "window" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-requestinit-window RequestInit.window specification>
getWindow :: (MonadDOM m) => RequestInit -> m JSVal
getWindow self = liftDOM (self ^. js "window")

-- | <https://wicg.github.io/local-network-access/#dom-requestinit-targetaddressspace RequestInit.targetAddressSpace specification>
setTargetAddressSpace :: (MonadDOM m) => RequestInit -> IPAddressSpace -> m ()
setTargetAddressSpace self val = liftDOM (void (self ^. jss "targetAddressSpace" (toJSVal val)))

-- | <https://wicg.github.io/local-network-access/#dom-requestinit-targetaddressspace RequestInit.targetAddressSpace specification>
getTargetAddressSpace :: (MonadDOM m) => RequestInit -> m (Maybe IPAddressSpace)
getTargetAddressSpace self = liftDOM (((self ^. js "targetAddressSpace") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/local-network-access/#dom-requestinit-targetaddressspace RequestInit.targetAddressSpace specification>
getTargetAddressSpaceUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m IPAddressSpace
getTargetAddressSpaceUnsafe self = liftDOM ((((self ^. js "targetAddressSpace") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://wicg.github.io/local-network-access/#dom-requestinit-targetaddressspace RequestInit.targetAddressSpace specification>
getTargetAddressSpaceUnchecked :: (MonadDOM m) => RequestInit -> m IPAddressSpace
getTargetAddressSpaceUnchecked self = liftDOM (((self ^. js "targetAddressSpace") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/trust-token-api/#dom-requestinit-privatetoken RequestInit.privateToken specification>
setPrivateToken :: (MonadDOM m) => RequestInit -> PrivateToken -> m ()
setPrivateToken self val = liftDOM (void (self ^. jss "privateToken" (toJSVal val)))

-- | <https://wicg.github.io/trust-token-api/#dom-requestinit-privatetoken RequestInit.privateToken specification>
getPrivateToken :: (MonadDOM m) => RequestInit -> m (Maybe PrivateToken)
getPrivateToken self = liftDOM (((self ^. js "privateToken") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/trust-token-api/#dom-requestinit-privatetoken RequestInit.privateToken specification>
getPrivateTokenUnsafe :: (MonadDOM m, HasCallStack) => RequestInit -> m PrivateToken
getPrivateTokenUnsafe self = liftDOM ((((self ^. js "privateToken") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://wicg.github.io/trust-token-api/#dom-requestinit-privatetoken RequestInit.privateToken specification>
getPrivateTokenUnchecked :: (MonadDOM m) => RequestInit -> m PrivateToken
getPrivateTokenUnchecked self = liftDOM (((self ^. js "privateToken") >>= fromJSValUnchecked))