GetHTMLOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.GetHTMLOptions
       (newGetHTMLOptions, setSerializableShadowRoots, getSerializableShadowRoots, getSerializableShadowRootsUnsafe, getSerializableShadowRootsUnchecked, setShadowRoots, getShadowRoots, getShadowRootsUnsafe, getShadowRootsUnchecked, GetHTMLOptions(..), gTypeGetHTMLOptions)
       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://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#gethtmloptions GetHTMLOptions specification>
newGetHTMLOptions :: (MonadDOM m) => m GetHTMLOptions
newGetHTMLOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-serializableshadowroots GetHTMLOptions.serializableShadowRoots specification>
setSerializableShadowRoots :: (MonadDOM m) => GetHTMLOptions -> Bool -> m ()
setSerializableShadowRoots self val = liftDOM (void (self ^. jss "serializableShadowRoots" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-serializableshadowroots GetHTMLOptions.serializableShadowRoots specification>
getSerializableShadowRoots :: (MonadDOM m) => GetHTMLOptions -> m (Maybe Bool)
getSerializableShadowRoots self = liftDOM (((self ^. js "serializableShadowRoots") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-serializableshadowroots GetHTMLOptions.serializableShadowRoots specification>
getSerializableShadowRootsUnsafe :: (MonadDOM m, HasCallStack) => GetHTMLOptions -> m Bool
getSerializableShadowRootsUnsafe self = liftDOM ((((self ^. js "serializableShadowRoots") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-serializableshadowroots GetHTMLOptions.serializableShadowRoots specification>
getSerializableShadowRootsUnchecked :: (MonadDOM m) => GetHTMLOptions -> m Bool
getSerializableShadowRootsUnchecked self = liftDOM (((self ^. js "serializableShadowRoots") >>= valToBool))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-shadowroots GetHTMLOptions.shadowRoots specification>
setShadowRoots :: (MonadDOM m) => GetHTMLOptions -> [ShadowRoot] -> m ()
setShadowRoots self val = liftDOM (void (self ^. jss "shadowRoots" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-shadowroots GetHTMLOptions.shadowRoots specification>
getShadowRoots :: (MonadDOM m) => GetHTMLOptions -> m (Maybe [ShadowRoot])
getShadowRoots self = liftDOM (((self ^. js "shadowRoots") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-shadowroots GetHTMLOptions.shadowRoots specification>
getShadowRootsUnsafe :: (MonadDOM m, HasCallStack) => GetHTMLOptions -> m [ShadowRoot]
getShadowRootsUnsafe self = liftDOM ((((self ^. js "shadowRoots") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-gethtmloptions-shadowroots GetHTMLOptions.shadowRoots specification>
getShadowRootsUnchecked :: (MonadDOM m) => GetHTMLOptions -> m [ShadowRoot]
getShadowRootsUnchecked self = liftDOM (((self ^. js "shadowRoots") >>= fromJSValUnchecked))