DOMImplementation.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from dom (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.DOMImplementation
       (js_createDocument, js_createDocumentType, js_createHTMLDocument, js_hasFeature, createDocument, createDocument_, createDocumentType, createDocumentType_, createHTMLDocument, createHTMLDocument_, hasFeature, hasFeature_, DOMImplementation(..), gTypeDOMImplementation)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createDocument\"]($2, $3, $4); })"
        js_createDocument :: DOMImplementation -> (Nullable JSString) -> JSString -> JSVal -> IO XMLDocument
-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocument MDN DOMImplementation.createDocument documentation>
createDocument :: (MonadDOM m, ToJSString namespace, ToJSString qualifiedName) => DOMImplementation -> Maybe namespace -> qualifiedName -> Maybe DocumentType -> m XMLDocument
createDocument self namespace qualifiedName doctype = liftDOM (((toJSVal doctype) >>= \a4' -> js_createDocument (self) (toMaybeJSString namespace) (toJSString qualifiedName) a4'))

-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocument MDN DOMImplementation.createDocument documentation>
createDocument_ :: (MonadDOM m, ToJSString namespace, ToJSString qualifiedName) => DOMImplementation -> Maybe namespace -> qualifiedName -> Maybe DocumentType -> m ()
createDocument_ self namespace qualifiedName doctype = liftDOM (void (((toJSVal doctype) >>= \a4' -> js_createDocument (self) (toMaybeJSString namespace) (toJSString qualifiedName) a4')))

foreign import javascript safe "(($1, $2, $3, $4) => { return $1[\"createDocumentType\"]($2, $3, $4); })"
        js_createDocumentType :: DOMImplementation -> JSString -> JSString -> JSString -> IO DocumentType
-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocumentType MDN DOMImplementation.createDocumentType documentation>
createDocumentType :: (MonadDOM m, ToJSString name, ToJSString publicId, ToJSString systemId) => DOMImplementation -> name -> publicId -> systemId -> m DocumentType
createDocumentType self name publicId systemId = liftDOM ((js_createDocumentType (self) (toJSString name) (toJSString publicId) (toJSString systemId)))

-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createDocumentType MDN DOMImplementation.createDocumentType documentation>
createDocumentType_ :: (MonadDOM m, ToJSString name, ToJSString publicId, ToJSString systemId) => DOMImplementation -> name -> publicId -> systemId -> m ()
createDocumentType_ self name publicId systemId = liftDOM (void ((js_createDocumentType (self) (toJSString name) (toJSString publicId) (toJSString systemId))))

foreign import javascript safe "(($1, $2) => { return $1[\"createHTMLDocument\"]($2); })"
        js_createHTMLDocument :: DOMImplementation -> (Optional JSString) -> IO Document
-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createHTMLDocument MDN DOMImplementation.createHTMLDocument documentation>
createHTMLDocument :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m Document
createHTMLDocument self title = liftDOM ((js_createHTMLDocument (self) (toOptionalJSString title)))

-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/createHTMLDocument MDN DOMImplementation.createHTMLDocument documentation>
createHTMLDocument_ :: (MonadDOM m, ToJSString title) => DOMImplementation -> Maybe title -> m ()
createHTMLDocument_ self title = liftDOM (void ((js_createHTMLDocument (self) (toOptionalJSString title))))

foreign import javascript safe "(($1) => { return $1[\"hasFeature\"](); })"
        js_hasFeature :: DOMImplementation -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/hasFeature MDN DOMImplementation.hasFeature documentation>
hasFeature :: (MonadDOM m) => DOMImplementation -> m Bool
hasFeature self = liftDOM ((js_hasFeature (self)))

-- | <https://developer.mozilla.org/docs/Web/API/DOMImplementation/hasFeature MDN DOMImplementation.hasFeature documentation>
hasFeature_ :: (MonadDOM m) => DOMImplementation -> m ()
hasFeature_ self = liftDOM (void ((js_hasFeature (self))))