{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGFEImageElement
(getPreserveAspectRatio, SVGFEImageElement(..),
gTypeSVGFEImageElement)
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
getPreserveAspectRatio ::
(MonadDOM m) =>
SVGFEImageElement -> m SVGAnimatedPreserveAspectRatio
getPreserveAspectRatio :: forall (m :: * -> *).
MonadDOM m =>
SVGFEImageElement -> m SVGAnimatedPreserveAspectRatio
getPreserveAspectRatio SVGFEImageElement
self
= DOM SVGAnimatedPreserveAspectRatio
-> m SVGAnimatedPreserveAspectRatio
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGFEImageElement
self SVGFEImageElement
-> Getting (JSM JSVal) SVGFEImageElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFEImageElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"preserveAspectRatio") JSM JSVal
-> (JSVal -> DOM SVGAnimatedPreserveAspectRatio)
-> DOM SVGAnimatedPreserveAspectRatio
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 SVGAnimatedPreserveAspectRatio
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)