ErrorEventInit.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.ErrorEventInit
       (newErrorEventInit, setMessage, getMessage, getMessageUnsafe, getMessageUnchecked, setFilename, getFilename, getFilenameUnsafe, getFilenameUnchecked, setLineno, getLineno, getLinenoUnsafe, getLinenoUnchecked, setColno, getColno, getColnoUnsafe, getColnoUnchecked, setError, getError, ErrorEventInit(..), gTypeErrorEventInit)
       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/webappapis.html#erroreventinit ErrorEventInit specification>
newErrorEventInit :: (MonadDOM m) => m ErrorEventInit
newErrorEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

setMessage :: (MonadDOM m, ToJSString val) => ErrorEventInit -> val -> m ()
setMessage self val = liftDOM (void (self ^. jss "message" (toJSVal val)))

getMessage :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m (Maybe result)
getMessage self = liftDOM (((self ^. js "message") >>= fromMaybeJSString))

getMessageUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ErrorEventInit -> m result
getMessageUnsafe self = liftDOM ((((self ^. js "message") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getMessageUnchecked :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m result
getMessageUnchecked self = liftDOM (((self ^. js "message") >>= fromJSValUnchecked))

setFilename :: (MonadDOM m, ToJSString val) => ErrorEventInit -> val -> m ()
setFilename self val = liftDOM (void (self ^. jss "filename" (toJSVal val)))

getFilename :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m (Maybe result)
getFilename self = liftDOM (((self ^. js "filename") >>= fromMaybeJSString))

getFilenameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ErrorEventInit -> m result
getFilenameUnsafe self = liftDOM ((((self ^. js "filename") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getFilenameUnchecked :: (MonadDOM m, FromJSString result) => ErrorEventInit -> m result
getFilenameUnchecked self = liftDOM (((self ^. js "filename") >>= fromJSValUnchecked))

setLineno :: (MonadDOM m) => ErrorEventInit -> Word -> m ()
setLineno self val = liftDOM (void (self ^. jss "lineno" (toJSVal val)))

getLineno :: (MonadDOM m) => ErrorEventInit -> m (Maybe Word)
getLineno self = liftDOM (((self ^. js "lineno") >>= fromJSValUnchecked))

getLinenoUnsafe :: (MonadDOM m, HasCallStack) => ErrorEventInit -> m Word
getLinenoUnsafe self = liftDOM ((((self ^. js "lineno") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getLinenoUnchecked :: (MonadDOM m) => ErrorEventInit -> m Word
getLinenoUnchecked self = liftDOM ((P.round <$> ((self ^. js "lineno") >>= valToNumber)))

setColno :: (MonadDOM m) => ErrorEventInit -> Word -> m ()
setColno self val = liftDOM (void (self ^. jss "colno" (toJSVal val)))

getColno :: (MonadDOM m) => ErrorEventInit -> m (Maybe Word)
getColno self = liftDOM (((self ^. js "colno") >>= fromJSValUnchecked))

getColnoUnsafe :: (MonadDOM m, HasCallStack) => ErrorEventInit -> m Word
getColnoUnsafe self = liftDOM ((((self ^. js "colno") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getColnoUnchecked :: (MonadDOM m) => ErrorEventInit -> m Word
getColnoUnchecked self = liftDOM ((P.round <$> ((self ^. js "colno") >>= valToNumber)))

setError :: (MonadDOM m) => ErrorEventInit -> JSVal -> m ()
setError self val = liftDOM (void (self ^. jss "error" (toJSVal val)))

getError :: (MonadDOM m) => ErrorEventInit -> m JSVal
getError self = liftDOM (self ^. js "error")