SanitizerElementNamespace.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.SanitizerElementNamespace
       (newSanitizerElementNamespace, setName, getName, setNamespace, getNamespace, getNamespaceUnsafe, getNamespaceUnchecked, SanitizerElementNamespace(..), gTypeSanitizerElementNamespace, IsSanitizerElementNamespace, toSanitizerElementNamespace)
       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#sanitizerelementnamespace SanitizerElementNamespace specification>
newSanitizerElementNamespace :: (MonadDOM m, ToJSString name) => name -> m SanitizerElementNamespace
newSanitizerElementNamespace name = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "name" (toJSVal name)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerelementnamespace-name SanitizerElementNamespace.name specification>
setName :: (MonadDOM m, IsSanitizerElementNamespace self, ToJSString val) => self -> val -> m ()
setName self val = liftDOM (void ((Types.toSanitizerElementNamespace self) ^. jss "name" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerelementnamespace-name SanitizerElementNamespace.name specification>
getName :: (MonadDOM m, IsSanitizerElementNamespace self, FromJSString result) => self -> m result
getName self = liftDOM ((((Types.toSanitizerElementNamespace self) ^. js "name") >>= fromJSValUnchecked))

setNamespace :: (MonadDOM m, IsSanitizerElementNamespace self, ToJSString val) => self -> Maybe val -> m ()
setNamespace self val = liftDOM (void ((Types.toSanitizerElementNamespace self) ^. jss "namespace" (toJSVal val)))

getNamespace :: (MonadDOM m, IsSanitizerElementNamespace self, FromJSString result) => self -> m (Maybe result)
getNamespace self = liftDOM ((((Types.toSanitizerElementNamespace self) ^. js "namespace") >>= fromMaybeJSString))

getNamespaceUnsafe :: (MonadDOM m, IsSanitizerElementNamespace self, HasCallStack, FromJSString result) => self -> m result
getNamespaceUnsafe self = liftDOM (((((Types.toSanitizerElementNamespace self) ^. js "namespace") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getNamespaceUnchecked :: (MonadDOM m, IsSanitizerElementNamespace self, FromJSString result) => self -> m result
getNamespaceUnchecked self = liftDOM ((((Types.toSanitizerElementNamespace self) ^. js "namespace") >>= fromJSValUnchecked))