{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DocumentType (js_getName, getName, js_getEntities, getEntities, js_getNotations, getNotations, js_getPublicId, getPublicId, js_getSystemId, getSystemId, js_getInternalSubset, getInternalSubset, DocumentType, castToDocumentType, gTypeDocumentType) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"name\"]" js_getName :: JSRef DocumentType -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => DocumentType -> m result getName self = liftIO (fromJSString <$> (js_getName (unDocumentType self))) foreign import javascript unsafe "$1[\"entities\"]" js_getEntities :: JSRef DocumentType -> IO (JSRef NamedNodeMap) -- | getEntities :: (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) getEntities self = liftIO ((js_getEntities (unDocumentType self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"notations\"]" js_getNotations :: JSRef DocumentType -> IO (JSRef NamedNodeMap) -- | getNotations :: (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) getNotations self = liftIO ((js_getNotations (unDocumentType self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId :: JSRef DocumentType -> IO (JSRef (Maybe JSString)) -- | getPublicId :: (MonadIO m, FromJSString result) => DocumentType -> m (Maybe result) getPublicId self = liftIO (fromMaybeJSString <$> (js_getPublicId (unDocumentType self))) foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId :: JSRef DocumentType -> IO (JSRef (Maybe JSString)) -- | getSystemId :: (MonadIO m, FromJSString result) => DocumentType -> m (Maybe result) getSystemId self = liftIO (fromMaybeJSString <$> (js_getSystemId (unDocumentType self))) foreign import javascript unsafe "$1[\"internalSubset\"]" js_getInternalSubset :: JSRef DocumentType -> IO (JSRef (Maybe JSString)) -- | getInternalSubset :: (MonadIO m, FromJSString result) => DocumentType -> m (Maybe result) getInternalSubset self = liftIO (fromMaybeJSString <$> (js_getInternalSubset (unDocumentType self)))