module JSDOM.Generated.HTMLAnchorElement
(toString, toString_, setCharset, getCharset, setCoords, getCoords,
setDownload, getDownload, setHref, getHref, setHreflang,
getHreflang, setName, getName, setPing, getPing, setRel, getRel,
setRev, getRev, setShape, getShape, setTarget, getTarget, setType,
getType, setHash, getHash, getHashUnsafe, getHashUnchecked,
setHost, getHost, getHostUnsafe, getHostUnchecked, setHostname,
getHostname, getHostnameUnsafe, getHostnameUnchecked, setPathname,
getPathname, getPathnameUnsafe, getPathnameUnchecked, setPort,
getPort, getPortUnsafe, getPortUnchecked, setProtocol, getProtocol,
getProtocolUnsafe, getProtocolUnchecked, setSearch, getSearch,
getSearchUnsafe, getSearchUnchecked, getOrigin, getOriginUnsafe,
getOriginUnchecked, setText, getText, getRelList, getRelListUnsafe,
getRelListUnchecked, 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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
#if MIN_VERSION_base(4,9,0)
import GHC.Stack (HasCallStack)
#elif MIN_VERSION_base(4,8,0)
import GHC.Stack (CallStack)
import GHC.Exts (Constraint)
type HasCallStack = ((?callStack :: CallStack) :: Constraint)
#else
import GHC.Exts (Constraint)
type HasCallStack = (() :: Constraint)
#endif
toString ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
toString self
= liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked)
toString_ :: (MonadDOM m) => HTMLAnchorElement -> m ()
toString_ self = liftDOM (void (self ^. jsf "toString" ()))
setCharset ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCharset self val = liftDOM (self ^. jss "charset" (toJSVal val))
getCharset ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCharset self
= liftDOM ((self ^. js "charset") >>= fromJSValUnchecked)
setCoords ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCoords self val = liftDOM (self ^. jss "coords" (toJSVal val))
getCoords ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCoords self
= liftDOM ((self ^. js "coords") >>= fromJSValUnchecked)
setDownload ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setDownload self val
= liftDOM (self ^. jss "download" (toJSVal val))
getDownload ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getDownload self
= liftDOM ((self ^. js "download") >>= fromJSValUnchecked)
setHref ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setHref self val = liftDOM (self ^. jss "href" (toJSVal val))
getHref ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHref self = liftDOM ((self ^. js "href") >>= fromJSValUnchecked)
setHreflang ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setHreflang self val
= liftDOM (self ^. jss "hreflang" (toJSVal val))
getHreflang ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHreflang self
= liftDOM ((self ^. js "hreflang") >>= fromJSValUnchecked)
setName ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setName self val = liftDOM (self ^. jss "name" (toJSVal val))
getName ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
setPing ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setPing self val = liftDOM (self ^. jss "ping" (toJSVal val))
getPing ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getPing self = liftDOM ((self ^. js "ping") >>= fromJSValUnchecked)
setRel ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRel self val = liftDOM (self ^. jss "rel" (toJSVal val))
getRel ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRel self = liftDOM ((self ^. js "rel") >>= fromJSValUnchecked)
setRev ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRev self val = liftDOM (self ^. jss "rev" (toJSVal val))
getRev ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRev self = liftDOM ((self ^. js "rev") >>= fromJSValUnchecked)
setShape ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setShape self val = liftDOM (self ^. jss "shape" (toJSVal val))
getShape ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getShape self
= liftDOM ((self ^. js "shape") >>= fromJSValUnchecked)
setTarget ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))
getTarget ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getTarget self
= liftDOM ((self ^. js "target") >>= fromJSValUnchecked)
setType ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setType self val = liftDOM (self ^. jss "type" (toJSVal val))
getType ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)
setHash ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setHash self val = liftDOM (self ^. jss "hash" (toJSVal val))
getHash ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString)
getHashUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getHashUnsafe self
= liftDOM
(((self ^. js "hash") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getHashUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHashUnchecked self
= liftDOM ((self ^. js "hash") >>= fromJSValUnchecked)
setHost ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setHost self val = liftDOM (self ^. jss "host" (toJSVal val))
getHost ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString)
getHostUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getHostUnsafe self
= liftDOM
(((self ^. js "host") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getHostUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHostUnchecked self
= liftDOM ((self ^. js "host") >>= fromJSValUnchecked)
setHostname ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setHostname self val
= liftDOM (self ^. jss "hostname" (toJSVal val))
getHostname ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getHostname self
= liftDOM ((self ^. js "hostname") >>= fromMaybeJSString)
getHostnameUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getHostnameUnsafe self
= liftDOM
(((self ^. js "hostname") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getHostnameUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getHostnameUnchecked self
= liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked)
setPathname ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setPathname self val
= liftDOM (self ^. jss "pathname" (toJSVal val))
getPathname ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getPathname self
= liftDOM ((self ^. js "pathname") >>= fromMaybeJSString)
getPathnameUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getPathnameUnsafe self
= liftDOM
(((self ^. js "pathname") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getPathnameUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getPathnameUnchecked self
= liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked)
setPort ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setPort self val = liftDOM (self ^. jss "port" (toJSVal val))
getPort ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString)
getPortUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getPortUnsafe self
= liftDOM
(((self ^. js "port") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getPortUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getPortUnchecked self
= liftDOM ((self ^. js "port") >>= fromJSValUnchecked)
setProtocol ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setProtocol self val
= liftDOM (self ^. jss "protocol" (toJSVal val))
getProtocol ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getProtocol self
= liftDOM ((self ^. js "protocol") >>= fromMaybeJSString)
getProtocolUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getProtocolUnsafe self
= liftDOM
(((self ^. js "protocol") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getProtocolUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getProtocolUnchecked self
= liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked)
setSearch ::
(MonadDOM m, ToJSString val) =>
HTMLAnchorElement -> Maybe val -> m ()
setSearch self val = liftDOM (self ^. jss "search" (toJSVal val))
getSearch ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getSearch self
= liftDOM ((self ^. js "search") >>= fromMaybeJSString)
getSearchUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getSearchUnsafe self
= liftDOM
(((self ^. js "search") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getSearchUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getSearchUnchecked self
= liftDOM ((self ^. js "search") >>= fromJSValUnchecked)
getOrigin ::
(MonadDOM m, FromJSString result) =>
HTMLAnchorElement -> m (Maybe result)
getOrigin self
= liftDOM ((self ^. js "origin") >>= fromMaybeJSString)
getOriginUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLAnchorElement -> m result
getOriginUnsafe self
= liftDOM
(((self ^. js "origin") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getOriginUnchecked ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getOriginUnchecked self
= liftDOM ((self ^. js "origin") >>= fromJSValUnchecked)
setText ::
(MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setText self val = liftDOM (self ^. jss "text" (toJSVal val))
getText ::
(MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked)
getRelList ::
(MonadDOM m) => HTMLAnchorElement -> m (Maybe DOMTokenList)
getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal)
getRelListUnsafe ::
(MonadDOM m, HasCallStack) => HTMLAnchorElement -> m DOMTokenList
getRelListUnsafe self
= liftDOM
(((self ^. js "relList") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRelListUnchecked ::
(MonadDOM m) => HTMLAnchorElement -> m DOMTokenList
getRelListUnchecked self
= liftDOM ((self ^. js "relList") >>= fromJSValUnchecked)