{-# LANGUAGE PatternSynonyms #-}
-- For HasCallStack compatibility
{-# 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

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.href Mozilla HTMLHyperlinkElementUtils.href documentation> 
setHref ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
          self -> val -> m ()
setHref :: 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
^. [Char]
-> 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 [Char]
"href" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.href Mozilla HTMLHyperlinkElementUtils.href documentation> 
getHref ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self,
         FromJSString result) =>
          self -> m result
getHref :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"href") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.origin Mozilla HTMLHyperlinkElementUtils.origin documentation> 
getOrigin ::
          (MonadDOM m, IsHTMLHyperlinkElementUtils self,
           FromJSString result) =>
            self -> m result
getOrigin :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"origin") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.protocol Mozilla HTMLHyperlinkElementUtils.protocol documentation> 
setProtocol ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
              self -> val -> m ()
setProtocol :: 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
^. [Char]
-> 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 [Char]
"protocol"
         (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.protocol Mozilla HTMLHyperlinkElementUtils.protocol documentation> 
getProtocol ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self,
             FromJSString result) =>
              self -> m result
getProtocol :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"protocol") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.username Mozilla HTMLHyperlinkElementUtils.username documentation> 
setUsername ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
              self -> val -> m ()
setUsername :: 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
^. [Char]
-> 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 [Char]
"username"
         (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.username Mozilla HTMLHyperlinkElementUtils.username documentation> 
getUsername ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self,
             FromJSString result) =>
              self -> m result
getUsername :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"username") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.password Mozilla HTMLHyperlinkElementUtils.password documentation> 
setPassword ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
              self -> val -> m ()
setPassword :: 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
^. [Char]
-> 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 [Char]
"password"
         (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.password Mozilla HTMLHyperlinkElementUtils.password documentation> 
getPassword ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self,
             FromJSString result) =>
              self -> m result
getPassword :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"password") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.host Mozilla HTMLHyperlinkElementUtils.host documentation> 
setHost ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
          self -> val -> m ()
setHost :: 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
^. [Char]
-> 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 [Char]
"host" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.host Mozilla HTMLHyperlinkElementUtils.host documentation> 
getHost ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self,
         FromJSString result) =>
          self -> m result
getHost :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"host") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hostname Mozilla HTMLHyperlinkElementUtils.hostname documentation> 
setHostname ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
              self -> val -> m ()
setHostname :: 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
^. [Char]
-> 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 [Char]
"hostname"
         (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hostname Mozilla HTMLHyperlinkElementUtils.hostname documentation> 
getHostname ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self,
             FromJSString result) =>
              self -> m result
getHostname :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"hostname") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.port Mozilla HTMLHyperlinkElementUtils.port documentation> 
setPort ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
          self -> val -> m ()
setPort :: 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
^. [Char]
-> 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 [Char]
"port" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.port Mozilla HTMLHyperlinkElementUtils.port documentation> 
getPort ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self,
         FromJSString result) =>
          self -> m result
getPort :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"port") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.pathname Mozilla HTMLHyperlinkElementUtils.pathname documentation> 
setPathname ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
              self -> val -> m ()
setPathname :: 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
^. [Char]
-> 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 [Char]
"pathname"
         (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.pathname Mozilla HTMLHyperlinkElementUtils.pathname documentation> 
getPathname ::
            (MonadDOM m, IsHTMLHyperlinkElementUtils self,
             FromJSString result) =>
              self -> m result
getPathname :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pathname") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.search Mozilla HTMLHyperlinkElementUtils.search documentation> 
setSearch ::
          (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
            self -> val -> m ()
setSearch :: 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
^. [Char]
-> 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 [Char]
"search" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.search Mozilla HTMLHyperlinkElementUtils.search documentation> 
getSearch ::
          (MonadDOM m, IsHTMLHyperlinkElementUtils self,
           FromJSString result) =>
            self -> m result
getSearch :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"search") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hash Mozilla HTMLHyperlinkElementUtils.hash documentation> 
setHash ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
          self -> val -> m ()
setHash :: 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
^. [Char]
-> 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 [Char]
"hash" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHyperlinkElementUtils.hash Mozilla HTMLHyperlinkElementUtils.hash documentation> 
getHash ::
        (MonadDOM m, IsHTMLHyperlinkElementUtils self,
         FromJSString result) =>
          self -> m result
getHash :: 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
^. [Char]
-> IndexPreservingGetter HTMLHyperlinkElementUtils (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"hash") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)