{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement (js_setText, setText, js_getText, getText, js_setHtmlFor, setHtmlFor, js_getHtmlFor, getHtmlFor, js_setEvent, setEvent, js_getEvent, getEvent, js_setCharset, setCharset, js_getCharset, getCharset, js_setAsync, setAsync, js_getAsync, getAsync, js_setDefer, setDefer, js_getDefer, getDefer, js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType, js_getType, getType, js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin, getCrossOrigin, js_setNonce, setNonce, js_getNonce, getNonce, HTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement) 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) 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[\"text\"] = $2;" js_setText :: HTMLScriptElement -> Nullable JSString -> IO () -- | setText :: (MonadIO m, ToJSString val) => HTMLScriptElement -> Maybe val -> m () setText self val = liftIO (js_setText (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"text\"]" js_getText :: HTMLScriptElement -> IO (Nullable JSString) -- | getText :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m (Maybe result) getText self = liftIO (fromMaybeJSString <$> (js_getText (self))) foreign import javascript unsafe "$1[\"htmlFor\"] = $2;" js_setHtmlFor :: HTMLScriptElement -> JSString -> IO () -- | setHtmlFor :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setHtmlFor self val = liftIO (js_setHtmlFor (self) (toJSString val)) foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor :: HTMLScriptElement -> IO JSString -- | getHtmlFor :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getHtmlFor self = liftIO (fromJSString <$> (js_getHtmlFor (self))) foreign import javascript unsafe "$1[\"event\"] = $2;" js_setEvent :: HTMLScriptElement -> JSString -> IO () -- | setEvent :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setEvent self val = liftIO (js_setEvent (self) (toJSString val)) foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: HTMLScriptElement -> IO JSString -- | getEvent :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getEvent self = liftIO (fromJSString <$> (js_getEvent (self))) foreign import javascript unsafe "$1[\"charset\"] = $2;" js_setCharset :: HTMLScriptElement -> JSString -> IO () -- | setCharset :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setCharset self val = liftIO (js_setCharset (self) (toJSString val)) foreign import javascript unsafe "$1[\"charset\"]" js_getCharset :: HTMLScriptElement -> IO JSString -- | getCharset :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getCharset self = liftIO (fromJSString <$> (js_getCharset (self))) foreign import javascript unsafe "$1[\"async\"] = $2;" js_setAsync :: HTMLScriptElement -> Bool -> IO () -- | setAsync :: (MonadIO m) => HTMLScriptElement -> Bool -> m () setAsync self val = liftIO (js_setAsync (self) val) foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)" js_getAsync :: HTMLScriptElement -> IO Bool -- | getAsync :: (MonadIO m) => HTMLScriptElement -> m Bool getAsync self = liftIO (js_getAsync (self)) foreign import javascript unsafe "$1[\"defer\"] = $2;" js_setDefer :: HTMLScriptElement -> Bool -> IO () -- | setDefer :: (MonadIO m) => HTMLScriptElement -> Bool -> m () setDefer self val = liftIO (js_setDefer (self) val) foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)" js_getDefer :: HTMLScriptElement -> IO Bool -- | getDefer :: (MonadIO m) => HTMLScriptElement -> m Bool getDefer self = liftIO (js_getDefer (self)) foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: HTMLScriptElement -> JSString -> IO () -- | setSrc :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setSrc self val = liftIO (js_setSrc (self) (toJSString val)) foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: HTMLScriptElement -> IO JSString -- | getSrc :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getSrc self = liftIO (fromJSString <$> (js_getSrc (self))) foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: HTMLScriptElement -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setType self val = liftIO (js_setType (self) (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: HTMLScriptElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getType self = liftIO (fromJSString <$> (js_getType (self))) foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;" js_setCrossOrigin :: HTMLScriptElement -> JSString -> IO () -- | setCrossOrigin :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setCrossOrigin self val = liftIO (js_setCrossOrigin (self) (toJSString val)) foreign import javascript unsafe "$1[\"crossOrigin\"]" js_getCrossOrigin :: HTMLScriptElement -> IO JSString -- | getCrossOrigin :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getCrossOrigin self = liftIO (fromJSString <$> (js_getCrossOrigin (self))) foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce :: HTMLScriptElement -> JSString -> IO () -- | setNonce :: (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setNonce self val = liftIO (js_setNonce (self) (toJSString val)) foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce :: HTMLScriptElement -> IO JSString -- | getNonce :: (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getNonce self = liftIO (fromJSString <$> (js_getNonce (self)))