Attr.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from dom (webref). Do not edit.
module JSDOM.Generated.Attr
       (getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName, getName, setValue, getValue, getOwnerElement, getOwnerElementUnsafe, getOwnerElementUnchecked, getSpecified, Attr(..), gTypeAttr)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>
getNamespaceURI :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)
getNamespaceURI self = liftDOM (((self ^. js "namespaceURI") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>
getNamespaceURIUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result
getNamespaceURIUnsafe self = liftDOM ((((self ^. js "namespaceURI") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/namespaceURI MDN Attr.namespaceURI documentation>
getNamespaceURIUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result
getNamespaceURIUnchecked self = liftDOM (((self ^. js "namespaceURI") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>
getPrefix :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result)
getPrefix self = liftDOM (((self ^. js "prefix") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>
getPrefixUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result
getPrefixUnsafe self = liftDOM ((((self ^. js "prefix") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/prefix MDN Attr.prefix documentation>
getPrefixUnchecked :: (MonadDOM m, FromJSString result) => Attr -> m result
getPrefixUnchecked self = liftDOM (((self ^. js "prefix") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/localName MDN Attr.localName documentation>
getLocalName :: (MonadDOM m, FromJSString result) => Attr -> m result
getLocalName self = liftDOM (((self ^. js "localName") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/name MDN Attr.name documentation>
getName :: (MonadDOM m, FromJSString result) => Attr -> m result
getName self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/value MDN Attr.value documentation>
setValue :: (MonadDOM m, ToJSString val) => Attr -> val -> m ()
setValue self val = liftDOM (void (self ^. jss "value" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/value MDN Attr.value documentation>
getValue :: (MonadDOM m, FromJSString result) => Attr -> m result
getValue self = liftDOM (((self ^. js "value") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>
getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element)
getOwnerElement self = liftDOM (((self ^. js "ownerElement") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>
getOwnerElementUnsafe :: (MonadDOM m, HasCallStack) => Attr -> m Element
getOwnerElementUnsafe self = liftDOM ((((self ^. js "ownerElement") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/ownerElement MDN Attr.ownerElement documentation>
getOwnerElementUnchecked :: (MonadDOM m) => Attr -> m Element
getOwnerElementUnchecked self = liftDOM (((self ^. js "ownerElement") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Attr/specified MDN Attr.specified documentation>
getSpecified :: (MonadDOM m) => Attr -> m Bool
getSpecified self = liftDOM (((self ^. js "specified") >>= valToBool))