{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLAnchorElement
(setCharset, getCharset, setCoords, getCoords, setDownload,
getDownload, setHreflang, getHreflang, setName, getName, setPing,
getPing, setRel, getRel, setRev, getRev, setShape, getShape,
setTarget, getTarget, setType, getType, setText, getText,
getRelList, HTMLAnchorElement(..), gTypeHTMLAnchorElement)
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
setCharset ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCharset :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setCharset HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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) => HTMLAnchorElement -> m result
getCharset :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getCharset HTMLAnchorElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (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)
setCoords ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCoords :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setCoords HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"coords" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getCoords ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCoords :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getCoords HTMLAnchorElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"coords") 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)
setDownload ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setDownload :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setDownload HTMLAnchorElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"download" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getDownload ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getDownload :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getDownload HTMLAnchorElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"download") 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)
setHreflang ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setHreflang :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setHreflang HTMLAnchorElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"hreflang" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHreflang ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHreflang :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getHreflang HTMLAnchorElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hreflang") 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)
setName ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setName :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setName HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"name" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getName ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getName :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getName HTMLAnchorElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"name") 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)
setPing ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setPing :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setPing HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"ping" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPing ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getPing :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getPing HTMLAnchorElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"ping") 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)
setRel ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRel :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setRel HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"rel" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getRel ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRel :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getRel HTMLAnchorElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"rel") 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)
setRev ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRev :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setRev HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"rev" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getRev ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRev :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getRev HTMLAnchorElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"rev") 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)
setShape ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setShape :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setShape HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"shape" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getShape ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getShape :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getShape HTMLAnchorElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"shape") 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)
setTarget ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setTarget :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setTarget HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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
"target" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getTarget ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getTarget :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getTarget HTMLAnchorElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"target") 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) => HTMLAnchorElement -> val -> m ()
setType :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setType HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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) => HTMLAnchorElement -> m result
getType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getType HTMLAnchorElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (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)
setText ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setText :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> val -> m ()
setText HTMLAnchorElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLAnchorElement
self HTMLAnchorElement
-> Getting (DOM ()) HTMLAnchorElement (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) => HTMLAnchorElement -> m result
getText :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m result
getText HTMLAnchorElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (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)
getRelList :: (MonadDOM m) => HTMLAnchorElement -> m DOMTokenList
getRelList :: forall (m :: * -> *).
MonadDOM m =>
HTMLAnchorElement -> m DOMTokenList
getRelList HTMLAnchorElement
self
= DOM DOMTokenList -> m DOMTokenList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLAnchorElement
self HTMLAnchorElement
-> Getting (JSM JSVal) HTMLAnchorElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLAnchorElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"relList") JSM JSVal -> (JSVal -> DOM DOMTokenList) -> DOM DOMTokenList
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 DOMTokenList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)