{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Attr (js_getNamespaceURI, getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, js_getPrefix, getPrefix, getPrefixUnsafe, getPrefixUnchecked, js_getLocalName, getLocalName, js_getName, getName, js_setValue, setValue, js_getValue, getValue, js_getOwnerElement, getOwnerElement, getOwnerElementUnsafe, getOwnerElementUnchecked, js_getSpecified, getSpecified, Attr(..), gTypeAttr) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"namespaceURI\"]" js_getNamespaceURI :: Attr -> IO (Nullable JSString) -- | getNamespaceURI :: (MonadIO m, FromJSString result) => Attr -> m (Maybe result) getNamespaceURI self = liftIO (fromMaybeJSString <$> (js_getNamespaceURI self)) -- | getNamespaceURIUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result getNamespaceURIUnsafe self = liftIO ((fromMaybeJSString <$> (js_getNamespaceURI self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getNamespaceURIUnchecked :: (MonadIO m, FromJSString result) => Attr -> m result getNamespaceURIUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getNamespaceURI self)) foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix :: Attr -> IO (Nullable JSString) -- | getPrefix :: (MonadIO m, FromJSString result) => Attr -> m (Maybe result) getPrefix self = liftIO (fromMaybeJSString <$> (js_getPrefix self)) -- | getPrefixUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result getPrefixUnsafe self = liftIO ((fromMaybeJSString <$> (js_getPrefix self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getPrefixUnchecked :: (MonadIO m, FromJSString result) => Attr -> m result getPrefixUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getPrefix self)) foreign import javascript unsafe "$1[\"localName\"]" js_getLocalName :: Attr -> IO JSString -- | getLocalName :: (MonadIO m, FromJSString result) => Attr -> m result getLocalName self = liftIO (fromJSString <$> (js_getLocalName self)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: Attr -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => Attr -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: Attr -> JSString -> IO () -- | setValue :: (MonadIO m, ToJSString val) => Attr -> val -> m () setValue self val = liftIO (js_setValue self (toJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: Attr -> IO JSString -- | getValue :: (MonadIO m, FromJSString result) => Attr -> m result getValue self = liftIO (fromJSString <$> (js_getValue self)) foreign import javascript unsafe "$1[\"ownerElement\"]" js_getOwnerElement :: Attr -> IO (Nullable Element) -- | getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element) getOwnerElement self = liftIO (nullableToMaybe <$> (js_getOwnerElement self)) -- | getOwnerElementUnsafe :: (MonadIO m, HasCallStack) => Attr -> m Element getOwnerElementUnsafe self = liftIO ((nullableToMaybe <$> (js_getOwnerElement self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element getOwnerElementUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerElement self)) foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)" js_getSpecified :: Attr -> IO Bool -- | getSpecified :: (MonadIO m) => Attr -> m Bool getSpecified self = liftIO (js_getSpecified self)