{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.MutationObserver (newMutationObserver, observe, takeRecords, disconnect, MutationObserver, castToMutationObserver, gTypeMutationObserver) 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 -- | newMutationObserver :: (MonadDOM m, IsMutationCallback callback) => Maybe callback -> m MutationObserver newMutationObserver callback = liftDOM (MutationObserver <$> new (jsg "MutationObserver") [toJSVal callback]) -- | observe :: (MonadDOM m, IsNode target, IsDictionary options) => MutationObserver -> Maybe target -> Maybe options -> m () observe self target options = liftDOM (void (self ^. jsf "observe" [toJSVal target, toJSVal options])) -- | takeRecords :: (MonadDOM m) => MutationObserver -> m [Maybe MutationRecord] takeRecords self = liftDOM ((self ^. js "takeRecords") >>= fromJSArray) -- | disconnect :: (MonadDOM m) => MutationObserver -> m () disconnect self = liftDOM (void (self ^. js "disconnect"))