MediaError.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.MediaError
       (getCode, getMessage, pattern MEDIA_ERR_ABORTED, pattern MEDIA_ERR_NETWORK, pattern MEDIA_ERR_DECODE, pattern MEDIA_ERR_SRC_NOT_SUPPORTED, MediaError(..), gTypeMediaError)
       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/MediaError/code MDN MediaError.code documentation>
getCode :: (MonadDOM m) => MediaError -> m Word
getCode self = liftDOM ((P.round <$> ((self ^. js "code") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/MediaError/message MDN MediaError.message documentation>
getMessage :: (MonadDOM m, FromJSString result) => MediaError -> m result
getMessage self = liftDOM (((self ^. js "message") >>= fromJSValUnchecked))

pattern MEDIA_ERR_ABORTED = 1

pattern MEDIA_ERR_NETWORK = 2

pattern MEDIA_ERR_DECODE = 3

pattern MEDIA_ERR_SRC_NOT_SUPPORTED = 4