{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLAnchorElement (setCharset, getCharset, setCoords, getCoords, setDownload, getDownload, setHreflang, getHreflang, setName, getName, setPing, getPing, setRel, getRel, setRev, getRev, setShape, getShape, setTarget, getTarget, setType, getType, setText, getText, getRelList, 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 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 -- | 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) -- | 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) -- | 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 DOMTokenList getRelList self = liftDOM ((self ^. js "relList") >>= fromJSValUnchecked)