WebTransportError.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webtransport (webref). Do not edit.
module JSDOM.Generated.WebTransportError
       (newWebTransportError, getSource, getStreamErrorCode, getStreamErrorCodeUnsafe, getStreamErrorCodeUnchecked, WebTransportError(..), gTypeWebTransportError)
       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/WebTransportError/WebTransportError MDN WebTransportError. documentation>
newWebTransportError :: (MonadDOM m, ToJSString message) => Maybe message -> Maybe WebTransportErrorOptions -> m WebTransportError
newWebTransportError message options = liftDOM (((new (jsg "WebTransportError") [P.maybe (P.return jsUndefined) toJSVal message, P.maybe (P.return jsUndefined) toJSVal options]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/WebTransportError/source MDN WebTransportError.source documentation>
getSource :: (MonadDOM m) => WebTransportError -> m WebTransportErrorSource
getSource self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/WebTransportError/streamErrorCode MDN WebTransportError.streamErrorCode documentation>
getStreamErrorCode :: (MonadDOM m) => WebTransportError -> m (Maybe Word)
getStreamErrorCode self = liftDOM (((self ^. js "streamErrorCode") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/WebTransportError/streamErrorCode MDN WebTransportError.streamErrorCode documentation>
getStreamErrorCodeUnchecked :: (MonadDOM m) => WebTransportError -> m Word
getStreamErrorCodeUnchecked self = liftDOM ((P.round <$> ((self ^. js "streamErrorCode") >>= valToNumber)))