MediaKeyStatusMap.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from encrypted-media-2 (webref). Do not edit.
module JSDOM.Generated.MediaKeyStatusMap
       (get, get_, has, has_, getSize, MediaKeyStatusMap(..), gTypeMediaKeyStatusMap)
       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/MediaKeyStatusMap/get MDN MediaKeyStatusMap.get documentation>
get :: (MonadDOM m, IsBufferSource keyId) => MediaKeyStatusMap -> keyId -> m MediaKeyStatusOrUndefined
get self keyId = liftDOM (((self ^. jsf "get" [toJSVal keyId]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeyStatusMap/get MDN MediaKeyStatusMap.get documentation>
get_ :: (MonadDOM m, IsBufferSource keyId) => MediaKeyStatusMap -> keyId -> m ()
get_ self keyId = liftDOM (void (self ^. jsf "get" [toJSVal keyId]))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeyStatusMap/has MDN MediaKeyStatusMap.has documentation>
has :: (MonadDOM m, IsBufferSource keyId) => MediaKeyStatusMap -> keyId -> m Bool
has self keyId = liftDOM (((self ^. jsf "has" [toJSVal keyId]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/MediaKeyStatusMap/has MDN MediaKeyStatusMap.has documentation>
has_ :: (MonadDOM m, IsBufferSource keyId) => MediaKeyStatusMap -> keyId -> m ()
has_ self keyId = liftDOM (void (self ^. jsf "has" [toJSVal keyId]))

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