{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.WebKitMediaKeySession
(update, close, getError, getKeySystem, getSessionId,
webKitKeyAdded, webKitKeyError, webKitKeyMessage,
WebKitMediaKeySession(..), gTypeWebKitMediaKeySession)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
update ::
(MonadDOM m, IsUint8Array key) =>
WebKitMediaKeySession -> key -> m ()
update :: forall (m :: * -> *) key.
(MonadDOM m, IsUint8Array key) =>
WebKitMediaKeySession -> key -> m ()
update WebKitMediaKeySession
self key
key
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebKitMediaKeySession
self WebKitMediaKeySession
-> Getting (JSM JSVal) WebKitMediaKeySession (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"update" [key -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal key
key]))
close :: (MonadDOM m) => WebKitMediaKeySession -> m ()
close :: forall (m :: * -> *). MonadDOM m => WebKitMediaKeySession -> m ()
close WebKitMediaKeySession
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebKitMediaKeySession
self WebKitMediaKeySession
-> Getting (JSM JSVal) WebKitMediaKeySession (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"close" ()))
getError ::
(MonadDOM m) => WebKitMediaKeySession -> m WebKitMediaKeyError
getError :: forall (m :: * -> *).
MonadDOM m =>
WebKitMediaKeySession -> m WebKitMediaKeyError
getError WebKitMediaKeySession
self
= DOM WebKitMediaKeyError -> m WebKitMediaKeyError
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((WebKitMediaKeySession
self WebKitMediaKeySession
-> Getting (JSM JSVal) WebKitMediaKeySession (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter WebKitMediaKeySession (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"error") JSM JSVal
-> (JSVal -> DOM WebKitMediaKeyError) -> DOM WebKitMediaKeyError
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebKitMediaKeyError
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getKeySystem ::
(MonadDOM m, FromJSString result) =>
WebKitMediaKeySession -> m result
getKeySystem :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
WebKitMediaKeySession -> m result
getKeySystem WebKitMediaKeySession
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((WebKitMediaKeySession
self WebKitMediaKeySession
-> Getting (JSM JSVal) WebKitMediaKeySession (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter WebKitMediaKeySession (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"keySystem") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSessionId ::
(MonadDOM m, FromJSString result) =>
WebKitMediaKeySession -> m result
getSessionId :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
WebKitMediaKeySession -> m result
getSessionId WebKitMediaKeySession
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((WebKitMediaKeySession
self WebKitMediaKeySession
-> Getting (JSM JSVal) WebKitMediaKeySession (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter WebKitMediaKeySession (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"sessionId") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
webKitKeyAdded :: EventName WebKitMediaKeySession Event
webKitKeyAdded :: EventName WebKitMediaKeySession Event
webKitKeyAdded = DOMString -> EventName WebKitMediaKeySession Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitkeyadded")
webKitKeyError :: EventName WebKitMediaKeySession Event
webKitKeyError :: EventName WebKitMediaKeySession Event
webKitKeyError = DOMString -> EventName WebKitMediaKeySession Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitkeyerror")
webKitKeyMessage :: EventName WebKitMediaKeySession Event
webKitKeyMessage :: EventName WebKitMediaKeySession Event
webKitKeyMessage = DOMString -> EventName WebKitMediaKeySession Event
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"webkitkeymessage")