{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGFEBlendElement (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL, pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN, pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN, getIn1, getIn2, getMode, SVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums pattern SVG_FEBLEND_MODE_UNKNOWN = 0 pattern SVG_FEBLEND_MODE_NORMAL = 1 pattern SVG_FEBLEND_MODE_MULTIPLY = 2 pattern SVG_FEBLEND_MODE_SCREEN = 3 pattern SVG_FEBLEND_MODE_DARKEN = 4 pattern SVG_FEBLEND_MODE_LIGHTEN = 5 -- | getIn1 :: (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) -- | getIn2 :: (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal) -- | getMode :: (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration) getMode self = liftDOM ((self ^. js "mode") >>= fromJSVal)