{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGRectElement (getX, getXUnsafe, getXUnchecked, getY, getYUnsafe, getYUnchecked, getWidth, getWidthUnsafe, getWidthUnchecked, getHeight, getHeightUnsafe, getHeightUnchecked, getRx, getRxUnsafe, getRxUnchecked, getRy, getRyUnsafe, getRyUnchecked, SVGRectElement(..), gTypeSVGRectElement) 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 -- | getX :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) -- | getXUnsafe :: (MonadDOM m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength getXUnsafe self = liftDOM (((self ^. js "x") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getXUnchecked :: (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength getXUnchecked self = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) -- | getY :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) -- | getYUnsafe :: (MonadDOM m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength getYUnsafe self = liftDOM (((self ^. js "y") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getYUnchecked :: (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength getYUnchecked self = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) -- | getWidth :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) -- | getWidthUnsafe :: (MonadDOM m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength getWidthUnsafe self = liftDOM (((self ^. js "width") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getWidthUnchecked :: (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength getWidthUnchecked self = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) -- | getHeight :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) -- | getHeightUnsafe :: (MonadDOM m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength getHeightUnsafe self = liftDOM (((self ^. js "height") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getHeightUnchecked :: (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength getHeightUnchecked self = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) -- | getRx :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal) -- | getRxUnsafe :: (MonadDOM m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength getRxUnsafe self = liftDOM (((self ^. js "rx") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRxUnchecked :: (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength getRxUnchecked self = liftDOM ((self ^. js "rx") >>= fromJSValUnchecked) -- | getRy :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal) -- | getRyUnsafe :: (MonadDOM m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength getRyUnsafe self = liftDOM (((self ^. js "ry") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRyUnchecked :: (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength getRyUnchecked self = liftDOM ((self ^. js "ry") >>= fromJSValUnchecked)