module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement
(js_setText, setText, js_getText, getText, getTextUnsafe,
getTextUnchecked, 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(..),
gTypeHTMLScriptElement)
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
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)))
getTextUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLScriptElement -> m result
getTextUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getText (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTextUnchecked ::
(MonadIO m, FromJSString result) => HTMLScriptElement -> m result
getTextUnchecked self
= liftIO (fromJust . 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)))