{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGFECompositeElement
(pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN,
pattern SVG_FECOMPOSITE_OPERATOR_OVER,
pattern SVG_FECOMPOSITE_OPERATOR_IN,
pattern SVG_FECOMPOSITE_OPERATOR_OUT,
pattern SVG_FECOMPOSITE_OPERATOR_ATOP,
pattern SVG_FECOMPOSITE_OPERATOR_XOR,
pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, getIn1, getIn2,
getOperator, getK1, getK2, getK3, getK4, SVGFECompositeElement(..),
gTypeSVGFECompositeElement)
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 $bSVG_FECOMPOSITE_OPERATOR_UNKNOWN :: a
$mSVG_FECOMPOSITE_OPERATOR_UNKNOWN :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0
pattern $bSVG_FECOMPOSITE_OPERATOR_OVER :: a
$mSVG_FECOMPOSITE_OPERATOR_OVER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_OVER = 1
pattern $bSVG_FECOMPOSITE_OPERATOR_IN :: a
$mSVG_FECOMPOSITE_OPERATOR_IN :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_IN = 2
pattern $bSVG_FECOMPOSITE_OPERATOR_OUT :: a
$mSVG_FECOMPOSITE_OPERATOR_OUT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_OUT = 3
pattern $bSVG_FECOMPOSITE_OPERATOR_ATOP :: a
$mSVG_FECOMPOSITE_OPERATOR_ATOP :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_ATOP = 4
pattern $bSVG_FECOMPOSITE_OPERATOR_XOR :: a
$mSVG_FECOMPOSITE_OPERATOR_XOR :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_XOR = 5
pattern $bSVG_FECOMPOSITE_OPERATOR_ARITHMETIC :: a
$mSVG_FECOMPOSITE_OPERATOR_ARITHMETIC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_FECOMPOSITE_OPERATOR_ARITHMETIC = 6
getIn1 ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedString
getIn1 :: SVGFECompositeElement -> m SVGAnimatedString
getIn1 SVGFECompositeElement
self = DOM SVGAnimatedString -> m SVGAnimatedString
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"in1") JSM JSVal
-> (JSVal -> DOM SVGAnimatedString) -> DOM SVGAnimatedString
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedString
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getIn2 ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedString
getIn2 :: SVGFECompositeElement -> m SVGAnimatedString
getIn2 SVGFECompositeElement
self = DOM SVGAnimatedString -> m SVGAnimatedString
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"in2") JSM JSVal
-> (JSVal -> DOM SVGAnimatedString) -> DOM SVGAnimatedString
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedString
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOperator ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedEnumeration
getOperator :: SVGFECompositeElement -> m SVGAnimatedEnumeration
getOperator SVGFECompositeElement
self
= DOM SVGAnimatedEnumeration -> m SVGAnimatedEnumeration
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"operator") JSM JSVal
-> (JSVal -> DOM SVGAnimatedEnumeration)
-> DOM SVGAnimatedEnumeration
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedEnumeration
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getK1 ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber
getK1 :: SVGFECompositeElement -> m SVGAnimatedNumber
getK1 SVGFECompositeElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"k1") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getK2 ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber
getK2 :: SVGFECompositeElement -> m SVGAnimatedNumber
getK2 SVGFECompositeElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"k2") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getK3 ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber
getK3 :: SVGFECompositeElement -> m SVGAnimatedNumber
getK3 SVGFECompositeElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"k3") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getK4 ::
(MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber
getK4 :: SVGFECompositeElement -> m SVGAnimatedNumber
getK4 SVGFECompositeElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFECompositeElement
self SVGFECompositeElement
-> Getting (JSM JSVal) SVGFECompositeElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGFECompositeElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"k4") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)