TrustedTypePolicyFactory.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from trusted-types (webref). Do not edit.
module JSDOM.Generated.TrustedTypePolicyFactory
       (createPolicy, createPolicy_, getAttributeType, getAttributeType_, getAttributeTypeUnsafe, getAttributeTypeUnchecked, getPropertyType, getPropertyType_, getPropertyTypeUnsafe, getPropertyTypeUnchecked, isHTML, isHTML_, isScript, isScript_, isScriptURL, isScriptURL_, getEmptyHTML, getEmptyScript, getDefaultPolicy, getDefaultPolicyUnsafe, getDefaultPolicyUnchecked, TrustedTypePolicyFactory(..), gTypeTrustedTypePolicyFactory)
       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://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/createPolicy MDN TrustedTypePolicyFactory.createPolicy documentation>
createPolicy :: (MonadDOM m, ToJSString policyName) => TrustedTypePolicyFactory -> policyName -> Maybe TrustedTypePolicyOptions -> m TrustedTypePolicy
createPolicy self policyName policyOptions = liftDOM (((self ^. jsf "createPolicy" [toJSVal policyName, P.maybe (P.return jsUndefined) toJSVal policyOptions]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/createPolicy MDN TrustedTypePolicyFactory.createPolicy documentation>
createPolicy_ :: (MonadDOM m, ToJSString policyName) => TrustedTypePolicyFactory -> policyName -> Maybe TrustedTypePolicyOptions -> m ()
createPolicy_ self policyName policyOptions = liftDOM (void (self ^. jsf "createPolicy" [toJSVal policyName, P.maybe (P.return jsUndefined) toJSVal policyOptions]))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getAttributeType MDN TrustedTypePolicyFactory.getAttributeType documentation>
getAttributeType :: (MonadDOM m, ToJSString tagName, ToJSString attribute, ToJSString elementNs, ToJSString attrNs, FromJSString result) => TrustedTypePolicyFactory -> tagName -> attribute -> Maybe elementNs -> Maybe attrNs -> m (Maybe result)
getAttributeType self tagName attribute elementNs attrNs = liftDOM (((self ^. jsf "getAttributeType" [toJSVal tagName, toJSVal attribute, toJSVal elementNs, toJSVal attrNs]) >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getAttributeType MDN TrustedTypePolicyFactory.getAttributeType documentation>
getAttributeType_ :: (MonadDOM m, ToJSString tagName, ToJSString attribute, ToJSString elementNs, ToJSString attrNs) => TrustedTypePolicyFactory -> tagName -> attribute -> Maybe elementNs -> Maybe attrNs -> m ()
getAttributeType_ self tagName attribute elementNs attrNs = liftDOM (void (self ^. jsf "getAttributeType" [toJSVal tagName, toJSVal attribute, toJSVal elementNs, toJSVal attrNs]))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getAttributeType MDN TrustedTypePolicyFactory.getAttributeType documentation>
getAttributeTypeUnsafe :: (MonadDOM m, ToJSString tagName, ToJSString attribute, ToJSString elementNs, ToJSString attrNs, HasCallStack, FromJSString result) => TrustedTypePolicyFactory -> tagName -> attribute -> Maybe elementNs -> Maybe attrNs -> m result
getAttributeTypeUnsafe self tagName attribute elementNs attrNs = liftDOM ((((self ^. jsf "getAttributeType" [toJSVal tagName, toJSVal attribute, toJSVal elementNs, toJSVal attrNs]) >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getAttributeType MDN TrustedTypePolicyFactory.getAttributeType documentation>
getAttributeTypeUnchecked :: (MonadDOM m, ToJSString tagName, ToJSString attribute, ToJSString elementNs, ToJSString attrNs, FromJSString result) => TrustedTypePolicyFactory -> tagName -> attribute -> Maybe elementNs -> Maybe attrNs -> m result
getAttributeTypeUnchecked self tagName attribute elementNs attrNs = liftDOM (((self ^. jsf "getAttributeType" [toJSVal tagName, toJSVal attribute, toJSVal elementNs, toJSVal attrNs]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getPropertyType MDN TrustedTypePolicyFactory.getPropertyType documentation>
getPropertyType :: (MonadDOM m, ToJSString tagName, ToJSString property, ToJSString elementNs, FromJSString result) => TrustedTypePolicyFactory -> tagName -> property -> Maybe elementNs -> m (Maybe result)
getPropertyType self tagName property elementNs = liftDOM (((self ^. jsf "getPropertyType" [toJSVal tagName, toJSVal property, toJSVal elementNs]) >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getPropertyType MDN TrustedTypePolicyFactory.getPropertyType documentation>
getPropertyType_ :: (MonadDOM m, ToJSString tagName, ToJSString property, ToJSString elementNs) => TrustedTypePolicyFactory -> tagName -> property -> Maybe elementNs -> m ()
getPropertyType_ self tagName property elementNs = liftDOM (void (self ^. jsf "getPropertyType" [toJSVal tagName, toJSVal property, toJSVal elementNs]))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getPropertyType MDN TrustedTypePolicyFactory.getPropertyType documentation>
getPropertyTypeUnsafe :: (MonadDOM m, ToJSString tagName, ToJSString property, ToJSString elementNs, HasCallStack, FromJSString result) => TrustedTypePolicyFactory -> tagName -> property -> Maybe elementNs -> m result
getPropertyTypeUnsafe self tagName property elementNs = liftDOM ((((self ^. jsf "getPropertyType" [toJSVal tagName, toJSVal property, toJSVal elementNs]) >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/getPropertyType MDN TrustedTypePolicyFactory.getPropertyType documentation>
getPropertyTypeUnchecked :: (MonadDOM m, ToJSString tagName, ToJSString property, ToJSString elementNs, FromJSString result) => TrustedTypePolicyFactory -> tagName -> property -> Maybe elementNs -> m result
getPropertyTypeUnchecked self tagName property elementNs = liftDOM (((self ^. jsf "getPropertyType" [toJSVal tagName, toJSVal property, toJSVal elementNs]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/isHTML MDN TrustedTypePolicyFactory.isHTML documentation>
isHTML :: (MonadDOM m) => TrustedTypePolicyFactory -> JSVal -> m Bool
isHTML self value = liftDOM (((self ^. jsf "isHTML" [toJSVal value]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/isHTML MDN TrustedTypePolicyFactory.isHTML documentation>
isHTML_ :: (MonadDOM m) => TrustedTypePolicyFactory -> JSVal -> m ()
isHTML_ self value = liftDOM (void (self ^. jsf "isHTML" [toJSVal value]))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/isScript MDN TrustedTypePolicyFactory.isScript documentation>
isScript :: (MonadDOM m) => TrustedTypePolicyFactory -> JSVal -> m Bool
isScript self value = liftDOM (((self ^. jsf "isScript" [toJSVal value]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/isScript MDN TrustedTypePolicyFactory.isScript documentation>
isScript_ :: (MonadDOM m) => TrustedTypePolicyFactory -> JSVal -> m ()
isScript_ self value = liftDOM (void (self ^. jsf "isScript" [toJSVal value]))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/isScriptURL MDN TrustedTypePolicyFactory.isScriptURL documentation>
isScriptURL :: (MonadDOM m) => TrustedTypePolicyFactory -> JSVal -> m Bool
isScriptURL self value = liftDOM (((self ^. jsf "isScriptURL" [toJSVal value]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/isScriptURL MDN TrustedTypePolicyFactory.isScriptURL documentation>
isScriptURL_ :: (MonadDOM m) => TrustedTypePolicyFactory -> JSVal -> m ()
isScriptURL_ self value = liftDOM (void (self ^. jsf "isScriptURL" [toJSVal value]))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/emptyHTML MDN TrustedTypePolicyFactory.emptyHTML documentation>
getEmptyHTML :: (MonadDOM m) => TrustedTypePolicyFactory -> m TrustedHTML
getEmptyHTML self = liftDOM (((self ^. js "emptyHTML") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/emptyScript MDN TrustedTypePolicyFactory.emptyScript documentation>
getEmptyScript :: (MonadDOM m) => TrustedTypePolicyFactory -> m TrustedScript
getEmptyScript self = liftDOM (((self ^. js "emptyScript") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/defaultPolicy MDN TrustedTypePolicyFactory.defaultPolicy documentation>
getDefaultPolicy :: (MonadDOM m) => TrustedTypePolicyFactory -> m (Maybe TrustedTypePolicy)
getDefaultPolicy self = liftDOM (((self ^. js "defaultPolicy") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/defaultPolicy MDN TrustedTypePolicyFactory.defaultPolicy documentation>
getDefaultPolicyUnsafe :: (MonadDOM m, HasCallStack) => TrustedTypePolicyFactory -> m TrustedTypePolicy
getDefaultPolicyUnsafe self = liftDOM ((((self ^. js "defaultPolicy") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/TrustedTypePolicyFactory/defaultPolicy MDN TrustedTypePolicyFactory.defaultPolicy documentation>
getDefaultPolicyUnchecked :: (MonadDOM m) => TrustedTypePolicyFactory -> m TrustedTypePolicy
getDefaultPolicyUnchecked self = liftDOM (((self ^. js "defaultPolicy") >>= fromJSValUnchecked))