{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement (js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType, js_getType, getType, js_setMedia, setMedia, js_getMedia, getMedia, HTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement) 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 "$1[\"src\"] = $2;" js_setSrc :: JSRef HTMLSourceElement -> JSString -> IO () -- | setSrc :: (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m () setSrc self val = liftIO (js_setSrc (unHTMLSourceElement self) (toJSString val)) foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: JSRef HTMLSourceElement -> IO JSString -- | getSrc :: (MonadIO m, FromJSString result) => HTMLSourceElement -> m result getSrc self = liftIO (fromJSString <$> (js_getSrc (unHTMLSourceElement self))) foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: JSRef HTMLSourceElement -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m () setType self val = liftIO (js_setType (unHTMLSourceElement self) (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: JSRef HTMLSourceElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLSourceElement -> m result getType self = liftIO (fromJSString <$> (js_getType (unHTMLSourceElement self))) foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia :: JSRef HTMLSourceElement -> JSString -> IO () -- | setMedia :: (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m () setMedia self val = liftIO (js_setMedia (unHTMLSourceElement self) (toJSString val)) foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: JSRef HTMLSourceElement -> IO JSString -- | getMedia :: (MonadIO m, FromJSString result) => HTMLSourceElement -> m result getMedia self = liftIO (fromJSString <$> (js_getMedia (unHTMLSourceElement self)))