{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGFEDropShadowElement
(setStdDeviation, getIn1, getDx, getDy, getStdDeviationX,
getStdDeviationY, SVGFEDropShadowElement(..),
gTypeSVGFEDropShadowElement)
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
setStdDeviation ::
(MonadDOM m) =>
SVGFEDropShadowElement -> Maybe Float -> Maybe Float -> m ()
setStdDeviation :: forall (m :: * -> *).
MonadDOM m =>
SVGFEDropShadowElement -> Maybe Float -> Maybe Float -> m ()
setStdDeviation SVGFEDropShadowElement
self Maybe Float
stdDeviationX Maybe Float
stdDeviationY
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGFEDropShadowElement
self SVGFEDropShadowElement
-> Getting (JSM JSVal) SVGFEDropShadowElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setStdDeviation"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
stdDeviationX, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
stdDeviationY]))
getIn1 ::
(MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedString
getIn1 :: forall (m :: * -> *).
MonadDOM m =>
SVGFEDropShadowElement -> m SVGAnimatedString
getIn1 SVGFEDropShadowElement
self = DOM SVGAnimatedString -> m SVGAnimatedString
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFEDropShadowElement
self SVGFEDropShadowElement
-> Getting (JSM JSVal) SVGFEDropShadowElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFEDropShadowElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"in1") JSM JSVal
-> (JSVal -> DOM SVGAnimatedString) -> DOM SVGAnimatedString
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedString
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getDx ::
(MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber
getDx :: forall (m :: * -> *).
MonadDOM m =>
SVGFEDropShadowElement -> m SVGAnimatedNumber
getDx SVGFEDropShadowElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFEDropShadowElement
self SVGFEDropShadowElement
-> Getting (JSM JSVal) SVGFEDropShadowElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFEDropShadowElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"dx") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getDy ::
(MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber
getDy :: forall (m :: * -> *).
MonadDOM m =>
SVGFEDropShadowElement -> m SVGAnimatedNumber
getDy SVGFEDropShadowElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFEDropShadowElement
self SVGFEDropShadowElement
-> Getting (JSM JSVal) SVGFEDropShadowElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFEDropShadowElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"dy") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getStdDeviationX ::
(MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber
getStdDeviationX :: forall (m :: * -> *).
MonadDOM m =>
SVGFEDropShadowElement -> m SVGAnimatedNumber
getStdDeviationX SVGFEDropShadowElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFEDropShadowElement
self SVGFEDropShadowElement
-> Getting (JSM JSVal) SVGFEDropShadowElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFEDropShadowElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"stdDeviationX") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getStdDeviationY ::
(MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber
getStdDeviationY :: forall (m :: * -> *).
MonadDOM m =>
SVGFEDropShadowElement -> m SVGAnimatedNumber
getStdDeviationY SVGFEDropShadowElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFEDropShadowElement
self SVGFEDropShadowElement
-> Getting (JSM JSVal) SVGFEDropShadowElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFEDropShadowElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"stdDeviationY") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)