GetRootNodeOptions.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.GetRootNodeOptions
       (newGetRootNodeOptions, setComposed, getComposed, getComposedUnsafe, getComposedUnchecked, GetRootNodeOptions(..), gTypeGetRootNodeOptions)
       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-getrootnodeoptions GetRootNodeOptions specification>
newGetRootNodeOptions :: (MonadDOM m) => m GetRootNodeOptions
newGetRootNodeOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-getrootnodeoptions-composed GetRootNodeOptions.composed specification>
setComposed :: (MonadDOM m) => GetRootNodeOptions -> Bool -> m ()
setComposed self val = liftDOM (void (self ^. jss "composed" (toJSVal val)))

-- | <https://dom.spec.whatwg.org/#dom-getrootnodeoptions-composed GetRootNodeOptions.composed specification>
getComposed :: (MonadDOM m) => GetRootNodeOptions -> m (Maybe Bool)
getComposed self = liftDOM (((self ^. js "composed") >>= fromJSValUnchecked))

-- | <https://dom.spec.whatwg.org/#dom-getrootnodeoptions-composed GetRootNodeOptions.composed specification>
getComposedUnsafe :: (MonadDOM m, HasCallStack) => GetRootNodeOptions -> m Bool
getComposedUnsafe self = liftDOM ((((self ^. js "composed") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://dom.spec.whatwg.org/#dom-getrootnodeoptions-composed GetRootNodeOptions.composed specification>
getComposedUnchecked :: (MonadDOM m) => GetRootNodeOptions -> m Bool
getComposedUnchecked self = liftDOM (((self ^. js "composed") >>= valToBool))