{-# 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 self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "href" (toJSVal val))
getHref ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHref self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "href") >>=
fromJSValUnchecked)
getOrigin ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getOrigin self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "origin") >>=
fromJSValUnchecked)
setProtocol ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setProtocol self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "protocol"
(toJSVal val))
getProtocol ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getProtocol self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "protocol") >>=
fromJSValUnchecked)
setUsername ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setUsername self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "username"
(toJSVal val))
getUsername ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getUsername self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "username") >>=
fromJSValUnchecked)
setPassword ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPassword self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "password"
(toJSVal val))
getPassword ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPassword self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "password") >>=
fromJSValUnchecked)
setHost ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHost self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "host" (toJSVal val))
getHost ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHost self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "host") >>=
fromJSValUnchecked)
setHostname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHostname self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "hostname"
(toJSVal val))
getHostname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHostname self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "hostname") >>=
fromJSValUnchecked)
setPort ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPort self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "port" (toJSVal val))
getPort ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPort self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "port") >>=
fromJSValUnchecked)
setPathname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setPathname self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "pathname"
(toJSVal val))
getPathname ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getPathname self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "pathname") >>=
fromJSValUnchecked)
setSearch ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setSearch self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "search" (toJSVal val))
getSearch ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getSearch self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "search") >>=
fromJSValUnchecked)
setHash ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self, ToJSString val) =>
self -> val -> m ()
setHash self val
= liftDOM
((toHTMLHyperlinkElementUtils self) ^. jss "hash" (toJSVal val))
getHash ::
(MonadDOM m, IsHTMLHyperlinkElementUtils self,
FromJSString result) =>
self -> m result
getHash self
= liftDOM
(((toHTMLHyperlinkElementUtils self) ^. js "hash") >>=
fromJSValUnchecked)