RTCDtlsFingerprint.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.RTCDtlsFingerprint
       (newRTCDtlsFingerprint, setAlgorithm, getAlgorithm, getAlgorithmUnsafe, getAlgorithmUnchecked, setValue, getValue, getValueUnsafe, getValueUnchecked, RTCDtlsFingerprint(..), gTypeRTCDtlsFingerprint)
       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-rtcdtlsfingerprint RTCDtlsFingerprint specification>
newRTCDtlsFingerprint :: (MonadDOM m) => m RTCDtlsFingerprint
newRTCDtlsFingerprint = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlsfingerprint-algorithm RTCDtlsFingerprint.algorithm specification>
setAlgorithm :: (MonadDOM m, ToJSString val) => RTCDtlsFingerprint -> val -> m ()
setAlgorithm self val = liftDOM (void (self ^. jss "algorithm" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlsfingerprint-algorithm RTCDtlsFingerprint.algorithm specification>
getAlgorithm :: (MonadDOM m, FromJSString result) => RTCDtlsFingerprint -> m (Maybe result)
getAlgorithm self = liftDOM (((self ^. js "algorithm") >>= fromMaybeJSString))

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

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlsfingerprint-algorithm RTCDtlsFingerprint.algorithm specification>
getAlgorithmUnchecked :: (MonadDOM m, FromJSString result) => RTCDtlsFingerprint -> m result
getAlgorithmUnchecked self = liftDOM (((self ^. js "algorithm") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlsfingerprint-value RTCDtlsFingerprint.value specification>
setValue :: (MonadDOM m, ToJSString val) => RTCDtlsFingerprint -> val -> m ()
setValue self val = liftDOM (void (self ^. jss "value" (toJSVal val)))

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlsfingerprint-value RTCDtlsFingerprint.value specification>
getValue :: (MonadDOM m, FromJSString result) => RTCDtlsFingerprint -> m (Maybe result)
getValue self = liftDOM (((self ^. js "value") >>= fromMaybeJSString))

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

-- | <https://w3c.github.io/webrtc-pc/#dom-rtcdtlsfingerprint-value RTCDtlsFingerprint.value specification>
getValueUnchecked :: (MonadDOM m, FromJSString result) => RTCDtlsFingerprint -> m result
getValueUnchecked self = liftDOM (((self ^. js "value") >>= fromJSValUnchecked))