{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR, js_setKind, setKind, js_getKind, getKind, js_setSrc, setSrc, js_getSrc, getSrc, js_setSrclang, setSrclang, js_getSrclang, getSrclang, js_setLabel, setLabel, js_getLabel, getLabel, js_setDefault, setDefault, js_getDefault, getDefault, js_getReadyState, getReadyState, js_getTrack, getTrack, getTrackUnsafe, getTrackUnchecked, HTMLTrackElement(..), gTypeHTMLTrackElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums #if MIN_VERSION_base(4,9,0) import GHC.Stack (HasCallStack) #elif MIN_VERSION_base(4,8,0) import GHC.Stack (CallStack) import GHC.Exts (Constraint) type HasCallStack = ((?callStack :: CallStack) :: Constraint) #else import GHC.Exts (Constraint) type HasCallStack = (() :: Constraint) #endif pattern NONE = 0 pattern LOADING = 1 pattern LOADED = 2 pattern ERROR = 3 foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind :: HTMLTrackElement -> JSString -> IO () -- | setKind :: (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () setKind self val = liftIO (js_setKind (self) (toJSString val)) foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: HTMLTrackElement -> IO JSString -- | getKind :: (MonadIO m, FromJSString result) => HTMLTrackElement -> m result getKind self = liftIO (fromJSString <$> (js_getKind (self))) foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: HTMLTrackElement -> JSString -> IO () -- | setSrc :: (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () setSrc self val = liftIO (js_setSrc (self) (toJSString val)) foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: HTMLTrackElement -> IO JSString -- | getSrc :: (MonadIO m, FromJSString result) => HTMLTrackElement -> m result getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) foreign import javascript unsafe "$1[\"srclang\"] = $2;" js_setSrclang :: HTMLTrackElement -> JSString -> IO () -- | setSrclang :: (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () setSrclang self val = liftIO (js_setSrclang (self) (toJSString val)) foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang :: HTMLTrackElement -> IO JSString -- | getSrclang :: (MonadIO m, FromJSString result) => HTMLTrackElement -> m result getSrclang self = liftIO (fromJSString <$> (js_getSrclang (self))) foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel :: HTMLTrackElement -> JSString -> IO () -- | setLabel :: (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () setLabel self val = liftIO (js_setLabel (self) (toJSString val)) foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: HTMLTrackElement -> IO JSString -- | getLabel :: (MonadIO m, FromJSString result) => HTMLTrackElement -> m result getLabel self = liftIO (fromJSString <$> (js_getLabel (self))) foreign import javascript unsafe "$1[\"default\"] = $2;" js_setDefault :: HTMLTrackElement -> Bool -> IO () -- | setDefault :: (MonadIO m) => HTMLTrackElement -> Bool -> m () setDefault self val = liftIO (js_setDefault (self) val) foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)" js_getDefault :: HTMLTrackElement -> IO Bool -- | getDefault :: (MonadIO m) => HTMLTrackElement -> m Bool getDefault self = liftIO (js_getDefault (self)) foreign import javascript unsafe "$1[\"readyState\"]" js_getReadyState :: HTMLTrackElement -> IO Word -- | getReadyState :: (MonadIO m) => HTMLTrackElement -> m Word getReadyState self = liftIO (js_getReadyState (self)) foreign import javascript unsafe "$1[\"track\"]" js_getTrack :: HTMLTrackElement -> IO (Nullable TextTrack) -- | getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) -- | getTrackUnsafe :: (MonadIO m, HasCallStack) => HTMLTrackElement -> m TextTrack getTrackUnsafe self = liftIO ((nullableToMaybe <$> (js_getTrack (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTrackUnchecked :: (MonadIO m) => HTMLTrackElement -> m TextTrack getTrackUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))