{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLElement
(newHTMLElement, click, focus, blur, setTitle, getTitle, setLang,
getLang, setTranslate, getTranslate, setDir, getDir, getDataset,
setHidden, getHidden, setTabIndex, getTabIndex, setAccessKey,
getAccessKey, setDraggable, getDraggable, setSpellcheck,
getSpellcheck, setInnerText, getInnerText, setContentEditable,
getContentEditable, getIsContentEditable, getOffsetParent,
getOffsetParentUnsafe, getOffsetParentUnchecked, getOffsetTop,
getOffsetLeft, getOffsetWidth, getOffsetHeight, setOuterText,
getOuterText, setAutocorrect, getAutocorrect, setAutocapitalize,
getAutocapitalize, setWebkitdropzone, getWebkitdropzone,
HTMLElement(..), gTypeHTMLElement, IsHTMLElement, toHTMLElement)
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
newHTMLElement :: (MonadDOM m) => m HTMLElement
newHTMLElement :: forall (m :: * -> *). MonadDOM m => m HTMLElement
newHTMLElement
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSVal -> HTMLElement
HTMLElement (JSVal -> HTMLElement) -> JSM JSVal -> DOM HTMLElement
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> JSM JSVal -> () -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"HTMLElement") ())
click :: (MonadDOM m, IsHTMLElement self) => self -> m ()
click :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m ()
click self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"click" ()))
focus :: (MonadDOM m, IsHTMLElement self) => self -> m ()
focus :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m ()
focus self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"focus" ()))
blur :: (MonadDOM m, IsHTMLElement self) => self -> m ()
blur :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m ()
blur self
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"blur" ()))
setTitle ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setTitle :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setTitle self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"title" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getTitle ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getTitle :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getTitle self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"title") 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)
setLang ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setLang :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setLang self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"lang" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getLang ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getLang :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getLang self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"lang") 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)
setTranslate ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setTranslate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> Bool -> m ()
setTranslate self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"translate" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getTranslate :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getTranslate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Bool
getTranslate self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"translate") 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)
setDir ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setDir :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setDir self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"dir" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getDir ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getDir :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getDir self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"dir") 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)
getDataset ::
(MonadDOM m, IsHTMLElement self) => self -> m DOMStringMap
getDataset :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m DOMStringMap
getDataset self
self
= DOM DOMStringMap -> m DOMStringMap
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"dataset") JSM JSVal -> (JSVal -> DOM DOMStringMap) -> DOM DOMStringMap
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 DOMStringMap
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setHidden ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setHidden :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> Bool -> m ()
setHidden self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"hidden" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getHidden :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getHidden :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Bool
getHidden self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hidden") 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)
setTabIndex ::
(MonadDOM m, IsHTMLElement self) => self -> Int -> m ()
setTabIndex :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> Int -> m ()
setTabIndex self
self Int
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"tabIndex" (Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
val))
getTabIndex :: (MonadDOM m, IsHTMLElement self) => self -> m Int
getTabIndex :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Int
getTabIndex self
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Int
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"tabIndex") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
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 Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setAccessKey ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setAccessKey :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setAccessKey self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"accessKey" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAccessKey ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getAccessKey :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getAccessKey self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"accessKey") 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)
setDraggable ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setDraggable :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> Bool -> m ()
setDraggable self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"draggable" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getDraggable :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getDraggable :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Bool
getDraggable self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"draggable") 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)
setSpellcheck ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setSpellcheck :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> Bool -> m ()
setSpellcheck self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"spellcheck" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getSpellcheck :: (MonadDOM m, IsHTMLElement self) => self -> m Bool
getSpellcheck :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Bool
getSpellcheck self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"spellcheck") 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)
setInnerText ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setInnerText :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setInnerText self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"innerText" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getInnerText ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getInnerText :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getInnerText self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"innerText") 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)
setContentEditable ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setContentEditable :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setContentEditable self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"contentEditable" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getContentEditable ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getContentEditable :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getContentEditable self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"contentEditable") 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)
getIsContentEditable ::
(MonadDOM m, IsHTMLElement self) => self -> m Bool
getIsContentEditable :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Bool
getIsContentEditable self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"isContentEditable") 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)
getOffsetParent ::
(MonadDOM m, IsHTMLElement self) => self -> m (Maybe Element)
getOffsetParent :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m (Maybe Element)
getOffsetParent self
self
= DOM (Maybe Element) -> m (Maybe Element)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetParent") JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
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 Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getOffsetParentUnsafe ::
(MonadDOM m, IsHTMLElement self, HasCallStack) => self -> m Element
getOffsetParentUnsafe :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self, HasCallStack) =>
self -> m Element
getOffsetParentUnsafe self
self
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetParent") JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
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 Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Element)
-> (Maybe Element -> DOM Element) -> DOM Element
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Element
-> (Element -> DOM Element) -> Maybe Element -> DOM Element
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM Element
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") Element -> DOM Element
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getOffsetParentUnchecked ::
(MonadDOM m, IsHTMLElement self) => self -> m Element
getOffsetParentUnchecked :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Element
getOffsetParentUnchecked self
self
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetParent") JSM JSVal -> (JSVal -> DOM Element) -> DOM Element
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 Element
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOffsetTop ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetTop :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Double
getOffsetTop self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetTop") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
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 Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOffsetLeft ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetLeft :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Double
getOffsetLeft self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetLeft") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
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 Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOffsetWidth ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetWidth :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Double
getOffsetWidth self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetWidth") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
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 Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getOffsetHeight ::
(MonadDOM m, IsHTMLElement self) => self -> m Double
getOffsetHeight :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Double
getOffsetHeight self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"offsetHeight") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
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 Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
setOuterText ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setOuterText :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setOuterText self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"outerText" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getOuterText ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getOuterText :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getOuterText self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"outerText") 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)
setAutocorrect ::
(MonadDOM m, IsHTMLElement self) => self -> Bool -> m ()
setAutocorrect :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> Bool -> m ()
setAutocorrect self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"autocorrect" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getAutocorrect ::
(MonadDOM m, IsHTMLElement self) => self -> m Bool
getAutocorrect :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLElement self) =>
self -> m Bool
getAutocorrect self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"autocorrect") 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)
setAutocapitalize ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setAutocapitalize :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setAutocapitalize self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"autocapitalize" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAutocapitalize ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getAutocapitalize :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getAutocapitalize self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"autocapitalize") 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)
setWebkitdropzone ::
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setWebkitdropzone :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLElement self, ToJSString val) =>
self -> val -> m ()
setWebkitdropzone self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement -> Getting (DOM ()) HTMLElement (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
"webkitdropzone" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getWebkitdropzone ::
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getWebkitdropzone :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLElement self, FromJSString result) =>
self -> m result
getWebkitdropzone self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLElement
forall o. IsHTMLElement o => o -> HTMLElement
toHTMLElement self
self) HTMLElement
-> Getting (JSM JSVal) HTMLElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitdropzone") 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)