SecurityPolicyViolationEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from CSP3 (webref). Do not edit.
module JSDOM.Generated.SecurityPolicyViolationEvent
       (newSecurityPolicyViolationEvent, getDocumentURI, getReferrer, getBlockedURI, getEffectiveDirective, getViolatedDirective, getOriginalPolicy, getSourceFile, getSample, getDisposition, getStatusCode, getLineNumber, getColumnNumber, SecurityPolicyViolationEvent(..), gTypeSecurityPolicyViolationEvent)
       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/SecurityPolicyViolationEvent/SecurityPolicyViolationEvent MDN SecurityPolicyViolationEvent. documentation>
newSecurityPolicyViolationEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe SecurityPolicyViolationEventInit -> m SecurityPolicyViolationEvent
newSecurityPolicyViolationEvent type' eventInitDict = liftDOM (((new (jsg "SecurityPolicyViolationEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/documentURI MDN SecurityPolicyViolationEvent.documentURI documentation>
getDocumentURI :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getDocumentURI self = liftDOM (((self ^. js "documentURI") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/referrer MDN SecurityPolicyViolationEvent.referrer documentation>
getReferrer :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getReferrer self = liftDOM (((self ^. js "referrer") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/blockedURI MDN SecurityPolicyViolationEvent.blockedURI documentation>
getBlockedURI :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getBlockedURI self = liftDOM (((self ^. js "blockedURI") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/effectiveDirective MDN SecurityPolicyViolationEvent.effectiveDirective documentation>
getEffectiveDirective :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getEffectiveDirective self = liftDOM (((self ^. js "effectiveDirective") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/violatedDirective MDN SecurityPolicyViolationEvent.violatedDirective documentation>
getViolatedDirective :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getViolatedDirective self = liftDOM (((self ^. js "violatedDirective") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/originalPolicy MDN SecurityPolicyViolationEvent.originalPolicy documentation>
getOriginalPolicy :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getOriginalPolicy self = liftDOM (((self ^. js "originalPolicy") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/sourceFile MDN SecurityPolicyViolationEvent.sourceFile documentation>
getSourceFile :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getSourceFile self = liftDOM (((self ^. js "sourceFile") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/sample MDN SecurityPolicyViolationEvent.sample documentation>
getSample :: (MonadDOM m, FromJSString result) => SecurityPolicyViolationEvent -> m result
getSample self = liftDOM (((self ^. js "sample") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/disposition MDN SecurityPolicyViolationEvent.disposition documentation>
getDisposition :: (MonadDOM m) => SecurityPolicyViolationEvent -> m SecurityPolicyViolationEventDisposition
getDisposition self = liftDOM (((self ^. js "disposition") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/statusCode MDN SecurityPolicyViolationEvent.statusCode documentation>
getStatusCode :: (MonadDOM m) => SecurityPolicyViolationEvent -> m Word
getStatusCode self = liftDOM ((P.round <$> ((self ^. js "statusCode") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/lineNumber MDN SecurityPolicyViolationEvent.lineNumber documentation>
getLineNumber :: (MonadDOM m) => SecurityPolicyViolationEvent -> m Word
getLineNumber self = liftDOM ((P.round <$> ((self ^. js "lineNumber") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/SecurityPolicyViolationEvent/columnNumber MDN SecurityPolicyViolationEvent.columnNumber documentation>
getColumnNumber :: (MonadDOM m) => SecurityPolicyViolationEvent -> m Word
getColumnNumber self = liftDOM ((P.round <$> ((self ^. js "columnNumber") >>= valToNumber)))