jsaddle-dom-0.10.0.0: src/JSDOM/Generated/RTCPeerConnectionIceErrorEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webrtc (webref). Do not edit.
module JSDOM.Generated.RTCPeerConnectionIceErrorEventInit
       (newRTCPeerConnectionIceErrorEventInit, setAddress, getAddress, getAddressUnsafe, getAddressUnchecked, setPort, getPort, getPortUnsafe, getPortUnchecked, setUrl, getUrl, getUrlUnsafe, getUrlUnchecked, setErrorCode, getErrorCode, setErrorText, getErrorText, getErrorTextUnsafe, getErrorTextUnchecked, RTCPeerConnectionIceErrorEventInit(..), gTypeRTCPeerConnectionIceErrorEventInit)
       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://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit RTCPeerConnectionIceErrorEventInit specification>
newRTCPeerConnectionIceErrorEventInit :: (MonadDOM m) => Word -> m RTCPeerConnectionIceErrorEventInit
newRTCPeerConnectionIceErrorEventInit errorCode = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "errorCode" (toJSVal errorCode)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-address RTCPeerConnectionIceErrorEventInit.address specification>
setAddress :: (MonadDOM m, ToJSString val) => RTCPeerConnectionIceErrorEventInit -> Maybe val -> m ()
setAddress self val = liftDOM (void (self ^. jss "address" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-address RTCPeerConnectionIceErrorEventInit.address specification>
getAddress :: (MonadDOM m, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m (Maybe result)
getAddress self = liftDOM (((self ^. js "address") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-address RTCPeerConnectionIceErrorEventInit.address specification>
getAddressUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m result
getAddressUnsafe self = liftDOM ((((self ^. js "address") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-address RTCPeerConnectionIceErrorEventInit.address specification>
getAddressUnchecked :: (MonadDOM m, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m result
getAddressUnchecked self = liftDOM (((self ^. js "address") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-port RTCPeerConnectionIceErrorEventInit.port specification>
setPort :: (MonadDOM m) => RTCPeerConnectionIceErrorEventInit -> Maybe Word -> m ()
setPort self val = liftDOM (void (self ^. jss "port" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-port RTCPeerConnectionIceErrorEventInit.port specification>
getPort :: (MonadDOM m) => RTCPeerConnectionIceErrorEventInit -> m (Maybe Word)
getPort self = liftDOM (((self ^. js "port") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-port RTCPeerConnectionIceErrorEventInit.port specification>
getPortUnsafe :: (MonadDOM m, HasCallStack) => RTCPeerConnectionIceErrorEventInit -> m Word
getPortUnsafe self = liftDOM ((((self ^. js "port") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-port RTCPeerConnectionIceErrorEventInit.port specification>
getPortUnchecked :: (MonadDOM m) => RTCPeerConnectionIceErrorEventInit -> m Word
getPortUnchecked self = liftDOM ((P.round <$> ((self ^. js "port") >>= valToNumber)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-url RTCPeerConnectionIceErrorEventInit.url specification>
setUrl :: (MonadDOM m, ToJSString val) => RTCPeerConnectionIceErrorEventInit -> val -> m ()
setUrl self val = liftDOM (void (self ^. jss "url" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-url RTCPeerConnectionIceErrorEventInit.url specification>
getUrl :: (MonadDOM m, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m (Maybe result)
getUrl self = liftDOM (((self ^. js "url") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-url RTCPeerConnectionIceErrorEventInit.url specification>
getUrlUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m result
getUrlUnsafe self = liftDOM ((((self ^. js "url") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-url RTCPeerConnectionIceErrorEventInit.url specification>
getUrlUnchecked :: (MonadDOM m, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m result
getUrlUnchecked self = liftDOM (((self ^. js "url") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-errorcode RTCPeerConnectionIceErrorEventInit.errorCode specification>
setErrorCode :: (MonadDOM m) => RTCPeerConnectionIceErrorEventInit -> Word -> m ()
setErrorCode self val = liftDOM (void (self ^. jss "errorCode" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-errorcode RTCPeerConnectionIceErrorEventInit.errorCode specification>
getErrorCode :: (MonadDOM m) => RTCPeerConnectionIceErrorEventInit -> m Word
getErrorCode self = liftDOM ((P.round <$> ((self ^. js "errorCode") >>= valToNumber)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-errortext RTCPeerConnectionIceErrorEventInit.errorText specification>
setErrorText :: (MonadDOM m, ToJSString val) => RTCPeerConnectionIceErrorEventInit -> val -> m ()
setErrorText self val = liftDOM (void (self ^. jss "errorText" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-errortext RTCPeerConnectionIceErrorEventInit.errorText specification>
getErrorText :: (MonadDOM m, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m (Maybe result)
getErrorText self = liftDOM (((self ^. js "errorText") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-errortext RTCPeerConnectionIceErrorEventInit.errorText specification>
getErrorTextUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m result
getErrorTextUnsafe self = liftDOM ((((self ^. js "errorText") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcpeerconnectioniceerroreventinit-errortext RTCPeerConnectionIceErrorEventInit.errorText specification>
getErrorTextUnchecked :: (MonadDOM m, FromJSString result) => RTCPeerConnectionIceErrorEventInit -> m result
getErrorTextUnchecked self = liftDOM (((self ^. js "errorText") >>= fromJSValUnchecked))