{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MutationRecord (getType, getTarget, getTargetUnsafe, getTargetUnchecked, getAddedNodes, getAddedNodesUnsafe, getAddedNodesUnchecked, getRemovedNodes, getRemovedNodesUnsafe, getRemovedNodesUnchecked, getPreviousSibling, getPreviousSiblingUnsafe, getPreviousSiblingUnchecked, getNextSibling, getNextSiblingUnsafe, getNextSiblingUnchecked, getAttributeName, getAttributeNameUnsafe, getAttributeNameUnchecked, getAttributeNamespace, getAttributeNamespaceUnsafe, getAttributeNamespaceUnchecked, getOldValue, getOldValueUnsafe, getOldValueUnchecked, MutationRecord(..), gTypeMutationRecord) 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 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 JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | getType :: (MonadDOM m, FromJSString result) => MutationRecord -> m result getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) -- | getTarget :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal) -- | getTargetUnsafe :: (MonadDOM m, HasCallStack) => MutationRecord -> m Node getTargetUnsafe self = liftDOM (((self ^. js "target") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTargetUnchecked :: (MonadDOM m) => MutationRecord -> m Node getTargetUnchecked self = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) -- | getAddedNodes :: (MonadDOM m) => MutationRecord -> m (Maybe NodeList) getAddedNodes self = liftDOM ((self ^. js "addedNodes") >>= fromJSVal) -- | getAddedNodesUnsafe :: (MonadDOM m, HasCallStack) => MutationRecord -> m NodeList getAddedNodesUnsafe self = liftDOM (((self ^. js "addedNodes") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getAddedNodesUnchecked :: (MonadDOM m) => MutationRecord -> m NodeList getAddedNodesUnchecked self = liftDOM ((self ^. js "addedNodes") >>= fromJSValUnchecked) -- | getRemovedNodes :: (MonadDOM m) => MutationRecord -> m (Maybe NodeList) getRemovedNodes self = liftDOM ((self ^. js "removedNodes") >>= fromJSVal) -- | getRemovedNodesUnsafe :: (MonadDOM m, HasCallStack) => MutationRecord -> m NodeList getRemovedNodesUnsafe self = liftDOM (((self ^. js "removedNodes") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRemovedNodesUnchecked :: (MonadDOM m) => MutationRecord -> m NodeList getRemovedNodesUnchecked self = liftDOM ((self ^. js "removedNodes") >>= fromJSValUnchecked) -- | getPreviousSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getPreviousSibling self = liftDOM ((self ^. js "previousSibling") >>= fromJSVal) -- | getPreviousSiblingUnsafe :: (MonadDOM m, HasCallStack) => MutationRecord -> m Node getPreviousSiblingUnsafe self = liftDOM (((self ^. js "previousSibling") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getPreviousSiblingUnchecked :: (MonadDOM m) => MutationRecord -> m Node getPreviousSiblingUnchecked self = liftDOM ((self ^. js "previousSibling") >>= fromJSValUnchecked) -- | getNextSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getNextSibling self = liftDOM ((self ^. js "nextSibling") >>= fromJSVal) -- | getNextSiblingUnsafe :: (MonadDOM m, HasCallStack) => MutationRecord -> m Node getNextSiblingUnsafe self = liftDOM (((self ^. js "nextSibling") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNextSiblingUnchecked :: (MonadDOM m) => MutationRecord -> m Node getNextSiblingUnchecked self = liftDOM ((self ^. js "nextSibling") >>= fromJSValUnchecked) -- | getAttributeName :: (MonadDOM m, FromJSString result) => MutationRecord -> m (Maybe result) getAttributeName self = liftDOM ((self ^. js "attributeName") >>= fromMaybeJSString) -- | getAttributeNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MutationRecord -> m result getAttributeNameUnsafe self = liftDOM (((self ^. js "attributeName") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeNameUnchecked :: (MonadDOM m, FromJSString result) => MutationRecord -> m result getAttributeNameUnchecked self = liftDOM ((self ^. js "attributeName") >>= fromJSValUnchecked) -- | getAttributeNamespace :: (MonadDOM m, FromJSString result) => MutationRecord -> m (Maybe result) getAttributeNamespace self = liftDOM ((self ^. js "attributeNamespace") >>= fromMaybeJSString) -- | getAttributeNamespaceUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MutationRecord -> m result getAttributeNamespaceUnsafe self = liftDOM (((self ^. js "attributeNamespace") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getAttributeNamespaceUnchecked :: (MonadDOM m, FromJSString result) => MutationRecord -> m result getAttributeNamespaceUnchecked self = liftDOM ((self ^. js "attributeNamespace") >>= fromJSValUnchecked) -- | getOldValue :: (MonadDOM m, FromJSString result) => MutationRecord -> m (Maybe result) getOldValue self = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString) -- | getOldValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MutationRecord -> m result getOldValueUnsafe self = liftDOM (((self ^. js "oldValue") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getOldValueUnchecked :: (MonadDOM m, FromJSString result) => MutationRecord -> m result getOldValueUnchecked self = liftDOM ((self ^. js "oldValue") >>= fromJSValUnchecked)