{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLHyperlinkElementUtils
(setHref, getHref, getOrigin, setProtocol, getProtocol,
setUsername, getUsername, setPassword, getPassword, setHost,
getHost, setHostname, getHostname, setPort, getPort, setPathname,
getPathname, setSearch, getSearch, setHash, getHash,
HTMLHyperlinkElementUtils(..), gTypeHTMLHyperlinkElementUtils,
IsHTMLHyperlinkElementUtils, toHTMLHyperlinkElementUtils)
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
setHref ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHref :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHref self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"href" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHref ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHref :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHref self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"href") 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)
getOrigin ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getOrigin :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getOrigin self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"origin") 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)
setProtocol ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setProtocol :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setProtocol self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"protocol"
(val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getProtocol ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getProtocol :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getProtocol self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"protocol") 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)
setUsername ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setUsername :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setUsername self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"username"
(val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getUsername ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getUsername :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getUsername self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"username") 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)
setPassword ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPassword :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPassword self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"password"
(val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPassword ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPassword :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPassword self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"password") 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)
setHost ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHost :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHost self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"host" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHost ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHost :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHost self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"host") 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)
setHostname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHostname :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHostname self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"hostname"
(val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHostname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHostname :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHostname self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hostname") 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)
setPort ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPort :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPort self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"port" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPort ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPort :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPort self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"port") 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)
setPathname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPathname :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPathname self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"pathname"
(val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPathname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPathname :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPathname self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"pathname") 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)
setSearch ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setSearch :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setSearch self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"search" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getSearch ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getSearch :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getSearch self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"search") 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)
setHash ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHash :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHash self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (DOM ()) HTMLHyperlinkElementUtils (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
"hash" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getHash ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHash :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHash self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLHyperlinkElementUtils
forall o.
IsHTMLHyperlinkElementUtils o =>
o -> HTMLHyperlinkElementUtils
toHTMLHyperlinkElementUtils self
self) HTMLHyperlinkElementUtils
-> Getting (JSM JSVal) HTMLHyperlinkElementUtils (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"hash") 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)