{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RTCSessionDescription (js_newRTCSessionDescription, newRTCSessionDescription, js_setType, setType, js_getType, getType, js_setSdp, setSdp, js_getSdp, getSdp, RTCSessionDescription, castToRTCSessionDescription, gTypeRTCSessionDescription) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "new window[\"RTCSessionDescription\"]($1)" js_newRTCSessionDescription :: JSRef Dictionary -> IO (JSRef RTCSessionDescription) -- | newRTCSessionDescription :: (MonadIO m, IsDictionary dictionary) => Maybe dictionary -> m RTCSessionDescription newRTCSessionDescription dictionary = liftIO (js_newRTCSessionDescription (maybe jsNull (unDictionary . toDictionary) dictionary) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: JSRef RTCSessionDescription -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m () setType self val = liftIO (js_setType (unRTCSessionDescription self) (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: JSRef RTCSessionDescription -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => RTCSessionDescription -> m result getType self = liftIO (fromJSString <$> (js_getType (unRTCSessionDescription self))) foreign import javascript unsafe "$1[\"sdp\"] = $2;" js_setSdp :: JSRef RTCSessionDescription -> JSString -> IO () -- | setSdp :: (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m () setSdp self val = liftIO (js_setSdp (unRTCSessionDescription self) (toJSString val)) foreign import javascript unsafe "$1[\"sdp\"]" js_getSdp :: JSRef RTCSessionDescription -> IO JSString -- | getSdp :: (MonadIO m, FromJSString result) => RTCSessionDescription -> m result getSdp self = liftIO (fromJSString <$> (js_getSdp (unRTCSessionDescription self)))