Request.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.Request
       (newRequest, clone, clone_, getMethod, getUrl, getHeaders, getDestination, getReferrer, getReferrerPolicy, getMode, getCredentials, getCache, getRedirect, getIntegrity, getKeepalive, getSignal, Request(..), gTypeRequest)
       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/Request/Request MDN Request. documentation>
newRequest :: (MonadDOM m, IsRequestInfo input) => input -> Maybe RequestInit -> m Request
newRequest input init = liftDOM (((new (jsg "Request") [toJSVal input, P.maybe (P.return jsUndefined) toJSVal init]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/clone MDN Request.clone documentation>
clone :: (MonadDOM m) => Request -> m Request
clone self = liftDOM (((self ^. jsf "clone" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/clone MDN Request.clone documentation>
clone_ :: (MonadDOM m) => Request -> m ()
clone_ self = liftDOM (void (self ^. jsf "clone" ()))

-- | <https://developer.mozilla.org/docs/Web/API/Request/method MDN Request.method documentation>
getMethod :: (MonadDOM m, FromJSString result) => Request -> m result
getMethod self = liftDOM (((self ^. js "method") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/url MDN Request.url documentation>
getUrl :: (MonadDOM m, FromJSString result) => Request -> m result
getUrl self = liftDOM (((self ^. js "url") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/headers MDN Request.headers documentation>
getHeaders :: (MonadDOM m) => Request -> m Headers
getHeaders self = liftDOM (((self ^. js "headers") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/destination MDN Request.destination documentation>
getDestination :: (MonadDOM m) => Request -> m RequestDestination
getDestination self = liftDOM (((self ^. js "destination") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/referrer MDN Request.referrer documentation>
getReferrer :: (MonadDOM m, FromJSString result) => Request -> m result
getReferrer self = liftDOM (((self ^. js "referrer") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/referrerPolicy MDN Request.referrerPolicy documentation>
getReferrerPolicy :: (MonadDOM m) => Request -> m ReferrerPolicy
getReferrerPolicy self = liftDOM (((self ^. js "referrerPolicy") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/mode MDN Request.mode documentation>
getMode :: (MonadDOM m) => Request -> m RequestMode
getMode self = liftDOM (((self ^. js "mode") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/credentials MDN Request.credentials documentation>
getCredentials :: (MonadDOM m) => Request -> m RequestCredentials
getCredentials self = liftDOM (((self ^. js "credentials") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/cache MDN Request.cache documentation>
getCache :: (MonadDOM m) => Request -> m RequestCache
getCache self = liftDOM (((self ^. js "cache") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/redirect MDN Request.redirect documentation>
getRedirect :: (MonadDOM m) => Request -> m RequestRedirect
getRedirect self = liftDOM (((self ^. js "redirect") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/integrity MDN Request.integrity documentation>
getIntegrity :: (MonadDOM m, FromJSString result) => Request -> m result
getIntegrity self = liftDOM (((self ^. js "integrity") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/keepalive MDN Request.keepalive documentation>
getKeepalive :: (MonadDOM m) => Request -> m Bool
getKeepalive self = liftDOM (((self ^. js "keepalive") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/Request/signal MDN Request.signal documentation>
getSignal :: (MonadDOM m) => Request -> m AbortSignal
getSignal self = liftDOM (((self ^. js "signal") >>= fromJSValUnchecked))