Body.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.Body
       (arrayBuffer, arrayBuffer_, blob, blob_, bytes, bytes_, formData, formData_, json, json_, text, text_, getBody, getBodyUnsafe, getBodyUnchecked, getBodyUsed, Body(..), gTypeBody, IsBody, toBody)
       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/arrayBuffer MDN Body.arrayBuffer documentation>
arrayBuffer :: (MonadDOM m, IsBody self) => self -> m ArrayBuffer
arrayBuffer self = liftDOM ((((((Types.toBody self) ^. jsf "arrayBuffer" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/arrayBuffer MDN Body.arrayBuffer documentation>
arrayBuffer_ :: (MonadDOM m, IsBody self) => self -> m ()
arrayBuffer_ self = liftDOM (void ((((Types.toBody self) ^. jsf "arrayBuffer" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/Request/blob MDN Body.blob documentation>
blob :: (MonadDOM m, IsBody self) => self -> m Blob
blob self = liftDOM ((((((Types.toBody self) ^. jsf "blob" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/blob MDN Body.blob documentation>
blob_ :: (MonadDOM m, IsBody self) => self -> m ()
blob_ self = liftDOM (void ((((Types.toBody self) ^. jsf "blob" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/Request/bytes MDN Body.bytes documentation>
bytes :: (MonadDOM m, IsBody self) => self -> m Uint8Array
bytes self = liftDOM ((((((Types.toBody self) ^. jsf "bytes" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/bytes MDN Body.bytes documentation>
bytes_ :: (MonadDOM m, IsBody self) => self -> m ()
bytes_ self = liftDOM (void ((((Types.toBody self) ^. jsf "bytes" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/Request/formData MDN Body.formData documentation>
formData :: (MonadDOM m, IsBody self) => self -> m FormData
formData self = liftDOM ((((((Types.toBody self) ^. jsf "formData" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/formData MDN Body.formData documentation>
formData_ :: (MonadDOM m, IsBody self) => self -> m ()
formData_ self = liftDOM (void ((((Types.toBody self) ^. jsf "formData" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/Request/json MDN Body.json documentation>
json :: (MonadDOM m, IsBody self) => self -> m JSVal
json self = liftDOM ((((Types.toBody self) ^. jsf "json" ()) >>= readPromise))

-- | <https://developer.mozilla.org/docs/Web/API/Request/json MDN Body.json documentation>
json_ :: (MonadDOM m, IsBody self) => self -> m ()
json_ self = liftDOM (void ((((Types.toBody self) ^. jsf "json" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/Request/text MDN Body.text documentation>
text :: (MonadDOM m, IsBody self, FromJSString result) => self -> m result
text self = liftDOM ((((((Types.toBody self) ^. jsf "text" ()) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/text MDN Body.text documentation>
text_ :: (MonadDOM m, IsBody self) => self -> m ()
text_ self = liftDOM (void ((((Types.toBody self) ^. jsf "text" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>
getBody :: (MonadDOM m, IsBody self) => self -> m (Maybe ReadableStream)
getBody self = liftDOM ((((Types.toBody self) ^. js "body") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>
getBodyUnsafe :: (MonadDOM m, IsBody self, HasCallStack) => self -> m ReadableStream
getBodyUnsafe self = liftDOM (((((Types.toBody self) ^. js "body") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/Request/body MDN Body.body documentation>
getBodyUnchecked :: (MonadDOM m, IsBody self) => self -> m ReadableStream
getBodyUnchecked self = liftDOM ((((Types.toBody self) ^. js "body") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Request/bodyUsed MDN Body.bodyUsed documentation>
getBodyUsed :: (MonadDOM m, IsBody self) => self -> m Bool
getBodyUsed self = liftDOM ((((Types.toBody self) ^. js "bodyUsed") >>= valToBool))