ErrorEvent.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.ErrorEvent
       (newErrorEvent, getMessage, getFilename, getLineno, getColno, getError, ErrorEvent(..), gTypeErrorEvent)
       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/ErrorEvent/ErrorEvent MDN ErrorEvent. documentation>
newErrorEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe ErrorEventInit -> m ErrorEvent
newErrorEvent type' eventInitDict = liftDOM (((new (jsg "ErrorEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/ErrorEvent/error MDN ErrorEvent.error documentation>
getError :: (MonadDOM m) => ErrorEvent -> m JSVal
getError self = liftDOM (self ^. js "error")