{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLScriptElement
(setText, getText, setHtmlFor, getHtmlFor, setEvent, getEvent,
setCharset, getCharset, setAsync, getAsync, setDefer, getDefer,
setSrc, getSrc, setType, getType, setCrossOrigin, getCrossOrigin,
getCrossOriginUnsafe, getCrossOriginUnchecked, setNonce, getNonce,
setNoModule, getNoModule, setIntegrity, getIntegrity,
HTMLScriptElement(..), gTypeHTMLScriptElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
setText ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setText :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setText HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"text" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getText ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getText :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getText HTMLScriptElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"text") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHtmlFor ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setHtmlFor :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setHtmlFor HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"htmlFor" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHtmlFor ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getHtmlFor :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getHtmlFor HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"htmlFor") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setEvent ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setEvent :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setEvent HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"event" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getEvent ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getEvent :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getEvent HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"event") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCharset ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setCharset :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setCharset HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"charset" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCharset ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getCharset :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getCharset HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"charset") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAsync :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()
setAsync :: forall (m :: * -> *).
MonadDOM m =>
HTMLScriptElement -> Bool -> m ()
setAsync HTMLScriptElement
self Bool
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"async" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getAsync :: (MonadDOM m) => HTMLScriptElement -> m Bool
getAsync :: forall (m :: * -> *). MonadDOM m => HTMLScriptElement -> m Bool
getAsync HTMLScriptElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"async") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setDefer :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()
setDefer :: forall (m :: * -> *).
MonadDOM m =>
HTMLScriptElement -> Bool -> m ()
setDefer HTMLScriptElement
self Bool
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"defer" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getDefer :: (MonadDOM m) => HTMLScriptElement -> m Bool
getDefer :: forall (m :: * -> *). MonadDOM m => HTMLScriptElement -> m Bool
getDefer HTMLScriptElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"defer") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setSrc ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setSrc :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setSrc HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"src" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getSrc ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getSrc :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getSrc HTMLScriptElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"src") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setType ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setType :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setType HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"type" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getType ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getType HTMLScriptElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"type") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCrossOrigin ::
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> Maybe val -> m ()
setCrossOrigin :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> Maybe val -> m ()
setCrossOrigin HTMLScriptElement
self Maybe val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"crossOrigin" (Maybe val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe val
val))
getCrossOrigin ::
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m (Maybe result)
getCrossOrigin :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m (Maybe result)
getCrossOrigin HTMLScriptElement
self
= DOM (Maybe result) -> m (Maybe result)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"crossOrigin") JSM JSVal -> (JSVal -> DOM (Maybe result)) -> DOM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
getCrossOriginUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLScriptElement -> m result
getCrossOriginUnsafe :: forall (m :: * -> *) result.
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLScriptElement -> m result
getCrossOriginUnsafe HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"crossOrigin") JSM JSVal -> (JSVal -> JSM (Maybe result)) -> JSM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString) JSM (Maybe result) -> (Maybe result -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM result -> (result -> DOM result) -> Maybe result -> DOM result
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM result
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") result -> DOM result
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getCrossOriginUnchecked ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getCrossOriginUnchecked :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getCrossOriginUnchecked HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"crossOrigin") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setNonce ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setNonce :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setNonce HTMLScriptElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"nonce" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getNonce ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getNonce :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getNonce HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"nonce") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setNoModule :: (MonadDOM m) => HTMLScriptElement -> Bool -> m ()
setNoModule :: forall (m :: * -> *).
MonadDOM m =>
HTMLScriptElement -> Bool -> m ()
setNoModule HTMLScriptElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"noModule" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getNoModule :: (MonadDOM m) => HTMLScriptElement -> m Bool
getNoModule :: forall (m :: * -> *). MonadDOM m => HTMLScriptElement -> m Bool
getNoModule HTMLScriptElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"noModule") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setIntegrity ::
(MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m ()
setIntegrity :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLScriptElement -> val -> m ()
setIntegrity HTMLScriptElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLScriptElement
self HTMLScriptElement
-> Getting (DOM ()) HTMLScriptElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"integrity" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getIntegrity ::
(MonadDOM m, FromJSString result) => HTMLScriptElement -> m result
getIntegrity :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLScriptElement -> m result
getIntegrity HTMLScriptElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLScriptElement
self HTMLScriptElement
-> Getting (JSM JSVal) HTMLScriptElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLScriptElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"integrity") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)