{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGLinearGradientElement (getX1, getX1Unsafe, getX1Unchecked, getY1, getY1Unsafe, getY1Unchecked, getX2, getX2Unsafe, getX2Unchecked, getY2, getY2Unsafe, getY2Unchecked, SVGLinearGradientElement(..), gTypeSVGLinearGradientElement) 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 -- | getX1 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal) -- | getX1Unsafe :: (MonadDOM m, HasCallStack) => SVGLinearGradientElement -> m SVGAnimatedLength getX1Unsafe self = liftDOM (((self ^. js "x1") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getX1Unchecked :: (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength getX1Unchecked self = liftDOM ((self ^. js "x1") >>= fromJSValUnchecked) -- | getY1 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal) -- | getY1Unsafe :: (MonadDOM m, HasCallStack) => SVGLinearGradientElement -> m SVGAnimatedLength getY1Unsafe self = liftDOM (((self ^. js "y1") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getY1Unchecked :: (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength getY1Unchecked self = liftDOM ((self ^. js "y1") >>= fromJSValUnchecked) -- | getX2 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal) -- | getX2Unsafe :: (MonadDOM m, HasCallStack) => SVGLinearGradientElement -> m SVGAnimatedLength getX2Unsafe self = liftDOM (((self ^. js "x2") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getX2Unchecked :: (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength getX2Unchecked self = liftDOM ((self ^. js "x2") >>= fromJSValUnchecked) -- | getY2 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal) -- | getY2Unsafe :: (MonadDOM m, HasCallStack) => SVGLinearGradientElement -> m SVGAnimatedLength getY2Unsafe self = liftDOM (((self ^. js "y2") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getY2Unchecked :: (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength getY2Unchecked self = liftDOM ((self ^. js "y2") >>= fromJSValUnchecked)