{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEDisplacementMapElement (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R, pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B, pattern SVG_CHANNEL_A, getIn1, getIn1Unsafe, getIn1Unchecked, getIn2, getIn2Unsafe, getIn2Unchecked, getScale, getScaleUnsafe, getScaleUnchecked, getXChannelSelector, getXChannelSelectorUnsafe, getXChannelSelectorUnchecked, getYChannelSelector, getYChannelSelectorUnsafe, getYChannelSelectorUnchecked, SVGFEDisplacementMapElement(..), gTypeSVGFEDisplacementMapElement) 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 pattern SVG_CHANNEL_UNKNOWN = 0 pattern SVG_CHANNEL_R = 1 pattern SVG_CHANNEL_G = 2 pattern SVG_CHANNEL_B = 3 pattern SVG_CHANNEL_A = 4 -- | getIn1 :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) -- | getIn1Unsafe :: (MonadDOM m, HasCallStack) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn1Unsafe self = liftDOM (((self ^. js "in1") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getIn1Unchecked :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn1Unchecked self = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) -- | getIn2 :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal) -- | getIn2Unsafe :: (MonadDOM m, HasCallStack) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn2Unsafe self = liftDOM (((self ^. js "in2") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getIn2Unchecked :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn2Unchecked self = liftDOM ((self ^. js "in2") >>= fromJSValUnchecked) -- | getScale :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber) getScale self = liftDOM ((self ^. js "scale") >>= fromJSVal) -- | getScaleUnsafe :: (MonadDOM m, HasCallStack) => SVGFEDisplacementMapElement -> m SVGAnimatedNumber getScaleUnsafe self = liftDOM (((self ^. js "scale") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getScaleUnchecked :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedNumber getScaleUnchecked self = liftDOM ((self ^. js "scale") >>= fromJSValUnchecked) -- | getXChannelSelector :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getXChannelSelector self = liftDOM ((self ^. js "xChannelSelector") >>= fromJSVal) -- | getXChannelSelectorUnsafe :: (MonadDOM m, HasCallStack) => SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration getXChannelSelectorUnsafe self = liftDOM (((self ^. js "xChannelSelector") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getXChannelSelectorUnchecked :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration getXChannelSelectorUnchecked self = liftDOM ((self ^. js "xChannelSelector") >>= fromJSValUnchecked) -- | getYChannelSelector :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getYChannelSelector self = liftDOM ((self ^. js "yChannelSelector") >>= fromJSVal) -- | getYChannelSelectorUnsafe :: (MonadDOM m, HasCallStack) => SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration getYChannelSelectorUnsafe self = liftDOM (((self ^. js "yChannelSelector") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getYChannelSelectorUnchecked :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration getYChannelSelectorUnchecked self = liftDOM ((self ^. js "yChannelSelector") >>= fromJSValUnchecked)