ResponseInit.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.ResponseInit
       (newResponseInit, setStatus, getStatus, getStatusUnsafe, getStatusUnchecked, setStatusText, getStatusText, getStatusTextUnsafe, getStatusTextUnchecked, setHeaders, getHeaders, getHeadersUnsafe, getHeadersUnchecked, ResponseInit(..), gTypeResponseInit)
       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/#responseinit ResponseInit specification>
newResponseInit :: (MonadDOM m) => m ResponseInit
newResponseInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-status ResponseInit.status specification>
setStatus :: (MonadDOM m) => ResponseInit -> Word -> m ()
setStatus self val = liftDOM (void (self ^. jss "status" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-status ResponseInit.status specification>
getStatus :: (MonadDOM m) => ResponseInit -> m (Maybe Word)
getStatus self = liftDOM (((self ^. js "status") >>= fromJSValUnchecked))

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-status ResponseInit.status specification>
getStatusUnsafe :: (MonadDOM m, HasCallStack) => ResponseInit -> m Word
getStatusUnsafe self = liftDOM ((((self ^. js "status") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-status ResponseInit.status specification>
getStatusUnchecked :: (MonadDOM m) => ResponseInit -> m Word
getStatusUnchecked self = liftDOM ((P.round <$> ((self ^. js "status") >>= valToNumber)))

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-statustext ResponseInit.statusText specification>
setStatusText :: (MonadDOM m, ToJSString val) => ResponseInit -> val -> m ()
setStatusText self val = liftDOM (void (self ^. jss "statusText" (toJSVal val)))

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-statustext ResponseInit.statusText specification>
getStatusText :: (MonadDOM m, FromJSString result) => ResponseInit -> m (Maybe result)
getStatusText self = liftDOM (((self ^. js "statusText") >>= fromMaybeJSString))

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

-- | <https://fetch.spec.whatwg.org/#dom-responseinit-statustext ResponseInit.statusText specification>
getStatusTextUnchecked :: (MonadDOM m, FromJSString result) => ResponseInit -> m result
getStatusTextUnchecked self = liftDOM (((self ^. js "statusText") >>= fromJSValUnchecked))

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

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

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

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