{-# 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, getIn2, getScale, getXChannelSelector, getYChannelSelector, 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 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 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 SVGAnimatedString getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) -- | getIn2 :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSValUnchecked) -- | getScale :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedNumber getScale self = liftDOM ((self ^. js "scale") >>= fromJSValUnchecked) -- | getXChannelSelector :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration getXChannelSelector self = liftDOM ((self ^. js "xChannelSelector") >>= fromJSValUnchecked) -- | getYChannelSelector :: (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration getYChannelSelector self = liftDOM ((self ^. js "yChannelSelector") >>= fromJSValUnchecked)