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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from service-workers (webref). Do not edit.
module JSDOM.Generated.FetchEventInit
       (newFetchEventInit, setRequest, getRequest, setPreloadResponse, getPreloadResponse, getPreloadResponseUnsafe, getPreloadResponseUnchecked, setClientId, getClientId, getClientIdUnsafe, getClientIdUnchecked, setResultingClientId, getResultingClientId, getResultingClientIdUnsafe, getResultingClientIdUnchecked, setReplacesClientId, getReplacesClientId, getReplacesClientIdUnsafe, getReplacesClientIdUnchecked, setHandled, getHandled, getHandledUnsafe, getHandledUnchecked, FetchEventInit(..), gTypeFetchEventInit)
       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://w3c.github.io/ServiceWorker/#dictdef-fetcheventinit FetchEventInit specification>
newFetchEventInit :: (MonadDOM m) => Request -> m FetchEventInit
newFetchEventInit request = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "request" (toJSVal request)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-request FetchEventInit.request specification>
setRequest :: (MonadDOM m) => FetchEventInit -> Request -> m ()
setRequest self val = liftDOM (void (self ^. jss "request" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-request FetchEventInit.request specification>
getRequest :: (MonadDOM m) => FetchEventInit -> m Request
getRequest self = liftDOM (((self ^. js "request") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-preloadresponse FetchEventInit.preloadResponse specification>
setPreloadResponse :: (MonadDOM m) => FetchEventInit -> JSVal -> m ()
setPreloadResponse self val = liftDOM (void (self ^. jss "preloadResponse" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-preloadresponse FetchEventInit.preloadResponse specification>
getPreloadResponse :: (MonadDOM m) => FetchEventInit -> m (Maybe JSVal)
getPreloadResponse self = liftDOM (((self ^. js "preloadResponse") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-preloadresponse FetchEventInit.preloadResponse specification>
getPreloadResponseUnsafe :: (MonadDOM m, HasCallStack) => FetchEventInit -> m JSVal
getPreloadResponseUnsafe self = liftDOM ((((self ^. js "preloadResponse") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-preloadresponse FetchEventInit.preloadResponse specification>
getPreloadResponseUnchecked :: (MonadDOM m) => FetchEventInit -> m JSVal
getPreloadResponseUnchecked self = liftDOM (((self ^. js "preloadResponse") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-clientid FetchEventInit.clientId specification>
setClientId :: (MonadDOM m, ToJSString val) => FetchEventInit -> val -> m ()
setClientId self val = liftDOM (void (self ^. jss "clientId" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-clientid FetchEventInit.clientId specification>
getClientId :: (MonadDOM m, FromJSString result) => FetchEventInit -> m (Maybe result)
getClientId self = liftDOM (((self ^. js "clientId") >>= fromMaybeJSString))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-clientid FetchEventInit.clientId specification>
getClientIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FetchEventInit -> m result
getClientIdUnsafe self = liftDOM ((((self ^. js "clientId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-clientid FetchEventInit.clientId specification>
getClientIdUnchecked :: (MonadDOM m, FromJSString result) => FetchEventInit -> m result
getClientIdUnchecked self = liftDOM (((self ^. js "clientId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-resultingclientid FetchEventInit.resultingClientId specification>
setResultingClientId :: (MonadDOM m, ToJSString val) => FetchEventInit -> val -> m ()
setResultingClientId self val = liftDOM (void (self ^. jss "resultingClientId" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-resultingclientid FetchEventInit.resultingClientId specification>
getResultingClientId :: (MonadDOM m, FromJSString result) => FetchEventInit -> m (Maybe result)
getResultingClientId self = liftDOM (((self ^. js "resultingClientId") >>= fromMaybeJSString))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-resultingclientid FetchEventInit.resultingClientId specification>
getResultingClientIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FetchEventInit -> m result
getResultingClientIdUnsafe self = liftDOM ((((self ^. js "resultingClientId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-resultingclientid FetchEventInit.resultingClientId specification>
getResultingClientIdUnchecked :: (MonadDOM m, FromJSString result) => FetchEventInit -> m result
getResultingClientIdUnchecked self = liftDOM (((self ^. js "resultingClientId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-replacesclientid FetchEventInit.replacesClientId specification>
setReplacesClientId :: (MonadDOM m, ToJSString val) => FetchEventInit -> val -> m ()
setReplacesClientId self val = liftDOM (void (self ^. jss "replacesClientId" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-replacesclientid FetchEventInit.replacesClientId specification>
getReplacesClientId :: (MonadDOM m, FromJSString result) => FetchEventInit -> m (Maybe result)
getReplacesClientId self = liftDOM (((self ^. js "replacesClientId") >>= fromMaybeJSString))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-replacesclientid FetchEventInit.replacesClientId specification>
getReplacesClientIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FetchEventInit -> m result
getReplacesClientIdUnsafe self = liftDOM ((((self ^. js "replacesClientId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-replacesclientid FetchEventInit.replacesClientId specification>
getReplacesClientIdUnchecked :: (MonadDOM m, FromJSString result) => FetchEventInit -> m result
getReplacesClientIdUnchecked self = liftDOM (((self ^. js "replacesClientId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-handled FetchEventInit.handled specification>
setHandled :: (MonadDOM m) => FetchEventInit -> JSVal -> m ()
setHandled self val = liftDOM (void (self ^. jss "handled" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-handled FetchEventInit.handled specification>
getHandled :: (MonadDOM m) => FetchEventInit -> m (Maybe ())
getHandled self = liftDOM (((self ^. js "handled") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-handled FetchEventInit.handled specification>
getHandledUnsafe :: (MonadDOM m, HasCallStack) => FetchEventInit -> m ()
getHandledUnsafe self = liftDOM ((((self ^. js "handled") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-fetcheventinit-handled FetchEventInit.handled specification>
getHandledUnchecked :: (MonadDOM m) => FetchEventInit -> m ()
getHandledUnchecked self = liftDOM (((self ^. js "handled") >>= fromJSValUnchecked))