{-# 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 -- | 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)