ReadableStreamBYOBRequest.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from streams (webref). Do not edit.
module JSDOM.Generated.ReadableStreamBYOBRequest
       (respond, respondWithNewView, getView, getViewUnsafe, getViewUnchecked, ReadableStreamBYOBRequest(..), gTypeReadableStreamBYOBRequest)
       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/ReadableStreamBYOBRequest/respond MDN ReadableStreamBYOBRequest.respond documentation>
respond :: (MonadDOM m) => ReadableStreamBYOBRequest -> Word53 -> m ()
respond self bytesWritten = liftDOM (void (self ^. jsf "respond" [toJSVal bytesWritten]))

-- | <https://developer.mozilla.org/docs/Web/API/ReadableStreamBYOBRequest/respondWithNewView MDN ReadableStreamBYOBRequest.respondWithNewView documentation>
respondWithNewView :: (MonadDOM m, IsArrayBufferView view) => ReadableStreamBYOBRequest -> view -> m ()
respondWithNewView self view = liftDOM (void (self ^. jsf "respondWithNewView" [toJSVal view]))

-- | <https://developer.mozilla.org/docs/Web/API/ReadableStreamBYOBRequest/view MDN ReadableStreamBYOBRequest.view documentation>
getView :: (MonadDOM m) => ReadableStreamBYOBRequest -> m (Maybe Uint8Array)
getView self = liftDOM (((self ^. js "view") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/ReadableStreamBYOBRequest/view MDN ReadableStreamBYOBRequest.view documentation>
getViewUnsafe :: (MonadDOM m, HasCallStack) => ReadableStreamBYOBRequest -> m Uint8Array
getViewUnsafe self = liftDOM ((((self ^. js "view") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/ReadableStreamBYOBRequest/view MDN ReadableStreamBYOBRequest.view documentation>
getViewUnchecked :: (MonadDOM m) => ReadableStreamBYOBRequest -> m Uint8Array
getViewUnchecked self = liftDOM (((self ^. js "view") >>= fromJSValUnchecked))