SetHTMLUnsafeOptions.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.SetHTMLUnsafeOptions
       (newSetHTMLUnsafeOptions, setSanitizer, getSanitizer, getSanitizerUnsafe, getSanitizerUnchecked, setRunScripts, getRunScripts, getRunScriptsUnsafe, getRunScriptsUnchecked, SetHTMLUnsafeOptions(..), gTypeSetHTMLUnsafeOptions)
       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#sethtmlunsafeoptions SetHTMLUnsafeOptions specification>
newSetHTMLUnsafeOptions :: (MonadDOM m) => m SetHTMLUnsafeOptions
newSetHTMLUnsafeOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-sanitizer SetHTMLUnsafeOptions.sanitizer specification>
setSanitizer :: (MonadDOM m, IsSanitizerOrSanitizerConfigOrSanitizerPresets val) => SetHTMLUnsafeOptions -> val -> m ()
setSanitizer self val = liftDOM (void (self ^. jss "sanitizer" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-sanitizer SetHTMLUnsafeOptions.sanitizer specification>
getSanitizer :: (MonadDOM m) => SetHTMLUnsafeOptions -> m (Maybe SanitizerOrSanitizerConfigOrSanitizerPresets)
getSanitizer self = liftDOM (((self ^. js "sanitizer") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-sanitizer SetHTMLUnsafeOptions.sanitizer specification>
getSanitizerUnsafe :: (MonadDOM m, HasCallStack) => SetHTMLUnsafeOptions -> m SanitizerOrSanitizerConfigOrSanitizerPresets
getSanitizerUnsafe self = liftDOM ((((self ^. js "sanitizer") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-sanitizer SetHTMLUnsafeOptions.sanitizer specification>
getSanitizerUnchecked :: (MonadDOM m) => SetHTMLUnsafeOptions -> m SanitizerOrSanitizerConfigOrSanitizerPresets
getSanitizerUnchecked self = liftDOM (((self ^. js "sanitizer") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-runscripts SetHTMLUnsafeOptions.runScripts specification>
setRunScripts :: (MonadDOM m) => SetHTMLUnsafeOptions -> Bool -> m ()
setRunScripts self val = liftDOM (void (self ^. jss "runScripts" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-runscripts SetHTMLUnsafeOptions.runScripts specification>
getRunScripts :: (MonadDOM m) => SetHTMLUnsafeOptions -> m (Maybe Bool)
getRunScripts self = liftDOM (((self ^. js "runScripts") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-runscripts SetHTMLUnsafeOptions.runScripts specification>
getRunScriptsUnsafe :: (MonadDOM m, HasCallStack) => SetHTMLUnsafeOptions -> m Bool
getRunScriptsUnsafe self = liftDOM ((((self ^. js "runScripts") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sethtmlunsafeoptions-runscripts SetHTMLUnsafeOptions.runScripts specification>
getRunScriptsUnchecked :: (MonadDOM m) => SetHTMLUnsafeOptions -> m Bool
getRunScriptsUnchecked self = liftDOM (((self ^. js "runScripts") >>= valToBool))