ImportNodeOptions.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.ImportNodeOptions
       (newImportNodeOptions, setCustomElementRegistry, getCustomElementRegistry, getCustomElementRegistryUnsafe, getCustomElementRegistryUnchecked, setSelfOnly, getSelfOnly, getSelfOnlyUnsafe, getSelfOnlyUnchecked, ImportNodeOptions(..), gTypeImportNodeOptions)
       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://dom.spec.whatwg.org/#dictdef-importnodeoptions ImportNodeOptions specification>
newImportNodeOptions :: (MonadDOM m) => m ImportNodeOptions
newImportNodeOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-customelementregistry ImportNodeOptions.customElementRegistry specification>
setCustomElementRegistry :: (MonadDOM m) => ImportNodeOptions -> CustomElementRegistry -> m ()
setCustomElementRegistry self val = liftDOM (void (self ^. jss "customElementRegistry" (toJSVal val)))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-customelementregistry ImportNodeOptions.customElementRegistry specification>
getCustomElementRegistry :: (MonadDOM m) => ImportNodeOptions -> m (Maybe CustomElementRegistry)
getCustomElementRegistry self = liftDOM (((self ^. js "customElementRegistry") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-customelementregistry ImportNodeOptions.customElementRegistry specification>
getCustomElementRegistryUnsafe :: (MonadDOM m, HasCallStack) => ImportNodeOptions -> m CustomElementRegistry
getCustomElementRegistryUnsafe self = liftDOM ((((self ^. js "customElementRegistry") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-customelementregistry ImportNodeOptions.customElementRegistry specification>
getCustomElementRegistryUnchecked :: (MonadDOM m) => ImportNodeOptions -> m CustomElementRegistry
getCustomElementRegistryUnchecked self = liftDOM (((self ^. js "customElementRegistry") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-selfonly ImportNodeOptions.selfOnly specification>
setSelfOnly :: (MonadDOM m) => ImportNodeOptions -> Bool -> m ()
setSelfOnly self val = liftDOM (void (self ^. jss "selfOnly" (toJSVal val)))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-selfonly ImportNodeOptions.selfOnly specification>
getSelfOnly :: (MonadDOM m) => ImportNodeOptions -> m (Maybe Bool)
getSelfOnly self = liftDOM (((self ^. js "selfOnly") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-selfonly ImportNodeOptions.selfOnly specification>
getSelfOnlyUnsafe :: (MonadDOM m, HasCallStack) => ImportNodeOptions -> m Bool
getSelfOnlyUnsafe self = liftDOM ((((self ^. js "selfOnly") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://dom.spec.whatwg.org/#dom-importnodeoptions-selfonly ImportNodeOptions.selfOnly specification>
getSelfOnlyUnchecked :: (MonadDOM m) => ImportNodeOptions -> m Bool
getSelfOnlyUnchecked self = liftDOM (((self ^. js "selfOnly") >>= valToBool))