{-# LANGUAGE PatternSynonyms #-}
-- For HasCallStack compatibility
{-# 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

-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation> 
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)