{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NamedNodeMap (item, item_, itemUnsafe, itemUnchecked, getNamedItem, getNamedItem_, getNamedItemUnsafe, getNamedItemUnchecked, getNamedItemNS, getNamedItemNS_, getNamedItemNSUnsafe, getNamedItemNSUnchecked, setNamedItem, setNamedItem_, setNamedItemUnsafe, setNamedItemUnchecked, setNamedItemNS, setNamedItemNS_, setNamedItemNSUnsafe, setNamedItemNSUnchecked, removeNamedItem, removeNamedItem_, removeNamedItemNS, removeNamedItemNS_, getLength, NamedNodeMap(..), gTypeNamedNodeMap) 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 -- | item :: (MonadDOM m) => NamedNodeMap -> Word -> m (Maybe Attr) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) -- | item_ :: (MonadDOM m) => NamedNodeMap -> Word -> m () item_ self index = liftDOM (void (self ^. jsf "item" [toJSVal index])) -- | itemUnsafe :: (MonadDOM m, HasCallStack) => NamedNodeMap -> Word -> m Attr itemUnsafe self index = liftDOM (((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | itemUnchecked :: (MonadDOM m) => NamedNodeMap -> Word -> m Attr itemUnchecked self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getNamedItem :: (MonadDOM m, ToJSString qualifiedName) => NamedNodeMap -> qualifiedName -> m (Maybe Attr) getNamedItem self qualifiedName = liftDOM ((self ! qualifiedName) >>= fromJSVal) -- | getNamedItem_ :: (MonadDOM m, ToJSString qualifiedName) => NamedNodeMap -> qualifiedName -> m () getNamedItem_ self qualifiedName = liftDOM (void (self ! qualifiedName)) -- | getNamedItemUnsafe :: (MonadDOM m, ToJSString qualifiedName, HasCallStack) => NamedNodeMap -> qualifiedName -> m Attr getNamedItemUnsafe self qualifiedName = liftDOM (((self ! qualifiedName) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNamedItemUnchecked :: (MonadDOM m, ToJSString qualifiedName) => NamedNodeMap -> qualifiedName -> m Attr getNamedItemUnchecked self qualifiedName = liftDOM ((self ! qualifiedName) >>= fromJSValUnchecked) -- | getNamedItemNS :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Attr) getNamedItemNS self namespaceURI localName = liftDOM ((self ^. jsf "getNamedItemNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) -- | getNamedItemNS_ :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => NamedNodeMap -> Maybe namespaceURI -> localName -> m () getNamedItemNS_ self namespaceURI localName = liftDOM (void (self ^. jsf "getNamedItemNS" [toJSVal namespaceURI, toJSVal localName])) -- | getNamedItemNSUnsafe :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName, HasCallStack) => NamedNodeMap -> Maybe namespaceURI -> localName -> m Attr getNamedItemNSUnsafe self namespaceURI localName = liftDOM (((self ^. jsf "getNamedItemNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNamedItemNSUnchecked :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => NamedNodeMap -> Maybe namespaceURI -> localName -> m Attr getNamedItemNSUnchecked self namespaceURI localName = liftDOM ((self ^. jsf "getNamedItemNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSValUnchecked) -- | setNamedItem :: (MonadDOM m) => NamedNodeMap -> Attr -> m (Maybe Attr) setNamedItem self attr = liftDOM ((self ^. jsf "setNamedItem" [toJSVal attr]) >>= fromJSVal) -- | setNamedItem_ :: (MonadDOM m) => NamedNodeMap -> Attr -> m () setNamedItem_ self attr = liftDOM (void (self ^. jsf "setNamedItem" [toJSVal attr])) -- | setNamedItemUnsafe :: (MonadDOM m, HasCallStack) => NamedNodeMap -> Attr -> m Attr setNamedItemUnsafe self attr = liftDOM (((self ^. jsf "setNamedItem" [toJSVal attr]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | setNamedItemUnchecked :: (MonadDOM m) => NamedNodeMap -> Attr -> m Attr setNamedItemUnchecked self attr = liftDOM ((self ^. jsf "setNamedItem" [toJSVal attr]) >>= fromJSValUnchecked) -- | setNamedItemNS :: (MonadDOM m) => NamedNodeMap -> Attr -> m (Maybe Attr) setNamedItemNS self attr = liftDOM ((self ^. jsf "setNamedItemNS" [toJSVal attr]) >>= fromJSVal) -- | setNamedItemNS_ :: (MonadDOM m) => NamedNodeMap -> Attr -> m () setNamedItemNS_ self attr = liftDOM (void (self ^. jsf "setNamedItemNS" [toJSVal attr])) -- | setNamedItemNSUnsafe :: (MonadDOM m, HasCallStack) => NamedNodeMap -> Attr -> m Attr setNamedItemNSUnsafe self attr = liftDOM (((self ^. jsf "setNamedItemNS" [toJSVal attr]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | setNamedItemNSUnchecked :: (MonadDOM m) => NamedNodeMap -> Attr -> m Attr setNamedItemNSUnchecked self attr = liftDOM ((self ^. jsf "setNamedItemNS" [toJSVal attr]) >>= fromJSValUnchecked) -- | removeNamedItem :: (MonadDOM m, ToJSString qualifiedName) => NamedNodeMap -> qualifiedName -> m Attr removeNamedItem self qualifiedName = liftDOM ((self ^. jsf "removeNamedItem" [toJSVal qualifiedName]) >>= fromJSValUnchecked) -- | removeNamedItem_ :: (MonadDOM m, ToJSString qualifiedName) => NamedNodeMap -> qualifiedName -> m () removeNamedItem_ self qualifiedName = liftDOM (void (self ^. jsf "removeNamedItem" [toJSVal qualifiedName])) -- | removeNamedItemNS :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => NamedNodeMap -> Maybe namespaceURI -> localName -> m Attr removeNamedItemNS self namespaceURI localName = liftDOM ((self ^. jsf "removeNamedItemNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSValUnchecked) -- | removeNamedItemNS_ :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => NamedNodeMap -> Maybe namespaceURI -> localName -> m () removeNamedItemNS_ self namespaceURI localName = liftDOM (void (self ^. jsf "removeNamedItemNS" [toJSVal namespaceURI, toJSVal localName])) -- | getLength :: (MonadDOM m) => NamedNodeMap -> m Word getLength self = liftDOM (round <$> ((self ^. js "length") >>= valToNumber))