module JSDOM.Generated.SecurityPolicy
(allowsConnectionTo, allowsConnectionTo_, allowsFontFrom,
allowsFontFrom_, allowsFormAction, allowsFormAction_,
allowsFrameFrom, allowsFrameFrom_, allowsImageFrom,
allowsImageFrom_, allowsMediaFrom, allowsMediaFrom_,
allowsObjectFrom, allowsObjectFrom_, allowsPluginType,
allowsPluginType_, allowsScriptFrom, allowsScriptFrom_,
allowsStyleFrom, allowsStyleFrom_, getAllowsEval,
getAllowsInlineScript, getAllowsInlineStyle, getIsActive,
getReportURIs, getReportURIsUnsafe, getReportURIsUnchecked,
SecurityPolicy(..), gTypeSecurityPolicy)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
allowsConnectionTo ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsConnectionTo self url
= liftDOM
((self ^. jsf "allowsConnectionTo" [toJSVal url]) >>= valToBool)
allowsConnectionTo_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsConnectionTo_ self url
= liftDOM (void (self ^. jsf "allowsConnectionTo" [toJSVal url]))
allowsFontFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsFontFrom self url
= liftDOM
((self ^. jsf "allowsFontFrom" [toJSVal url]) >>= valToBool)
allowsFontFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsFontFrom_ self url
= liftDOM (void (self ^. jsf "allowsFontFrom" [toJSVal url]))
allowsFormAction ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsFormAction self url
= liftDOM
((self ^. jsf "allowsFormAction" [toJSVal url]) >>= valToBool)
allowsFormAction_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsFormAction_ self url
= liftDOM (void (self ^. jsf "allowsFormAction" [toJSVal url]))
allowsFrameFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsFrameFrom self url
= liftDOM
((self ^. jsf "allowsFrameFrom" [toJSVal url]) >>= valToBool)
allowsFrameFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsFrameFrom_ self url
= liftDOM (void (self ^. jsf "allowsFrameFrom" [toJSVal url]))
allowsImageFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsImageFrom self url
= liftDOM
((self ^. jsf "allowsImageFrom" [toJSVal url]) >>= valToBool)
allowsImageFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsImageFrom_ self url
= liftDOM (void (self ^. jsf "allowsImageFrom" [toJSVal url]))
allowsMediaFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsMediaFrom self url
= liftDOM
((self ^. jsf "allowsMediaFrom" [toJSVal url]) >>= valToBool)
allowsMediaFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsMediaFrom_ self url
= liftDOM (void (self ^. jsf "allowsMediaFrom" [toJSVal url]))
allowsObjectFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsObjectFrom self url
= liftDOM
((self ^. jsf "allowsObjectFrom" [toJSVal url]) >>= valToBool)
allowsObjectFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsObjectFrom_ self url
= liftDOM (void (self ^. jsf "allowsObjectFrom" [toJSVal url]))
allowsPluginType ::
(MonadDOM m, ToJSString type') => SecurityPolicy -> type' -> m Bool
allowsPluginType self type'
= liftDOM
((self ^. jsf "allowsPluginType" [toJSVal type']) >>= valToBool)
allowsPluginType_ ::
(MonadDOM m, ToJSString type') => SecurityPolicy -> type' -> m ()
allowsPluginType_ self type'
= liftDOM (void (self ^. jsf "allowsPluginType" [toJSVal type']))
allowsScriptFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsScriptFrom self url
= liftDOM
((self ^. jsf "allowsScriptFrom" [toJSVal url]) >>= valToBool)
allowsScriptFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsScriptFrom_ self url
= liftDOM (void (self ^. jsf "allowsScriptFrom" [toJSVal url]))
allowsStyleFrom ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool
allowsStyleFrom self url
= liftDOM
((self ^. jsf "allowsStyleFrom" [toJSVal url]) >>= valToBool)
allowsStyleFrom_ ::
(MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m ()
allowsStyleFrom_ self url
= liftDOM (void (self ^. jsf "allowsStyleFrom" [toJSVal url]))
getAllowsEval :: (MonadDOM m) => SecurityPolicy -> m Bool
getAllowsEval self
= liftDOM ((self ^. js "allowsEval") >>= valToBool)
getAllowsInlineScript :: (MonadDOM m) => SecurityPolicy -> m Bool
getAllowsInlineScript self
= liftDOM ((self ^. js "allowsInlineScript") >>= valToBool)
getAllowsInlineStyle :: (MonadDOM m) => SecurityPolicy -> m Bool
getAllowsInlineStyle self
= liftDOM ((self ^. js "allowsInlineStyle") >>= valToBool)
getIsActive :: (MonadDOM m) => SecurityPolicy -> m Bool
getIsActive self = liftDOM ((self ^. js "isActive") >>= valToBool)
getReportURIs ::
(MonadDOM m) => SecurityPolicy -> m (Maybe DOMStringList)
getReportURIs self
= liftDOM ((self ^. js "reportURIs") >>= fromJSVal)
getReportURIsUnsafe ::
(MonadDOM m, HasCallStack) => SecurityPolicy -> m DOMStringList
getReportURIsUnsafe self
= liftDOM
(((self ^. js "reportURIs") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getReportURIsUnchecked ::
(MonadDOM m) => SecurityPolicy -> m DOMStringList
getReportURIsUnchecked self
= liftDOM ((self ^. js "reportURIs") >>= fromJSValUnchecked)