MessageEventInit.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.MessageEventInit
       (newMessageEventInit, setData, getData, setOrigin, getOrigin, getOriginUnsafe, getOriginUnchecked, setLastEventId, getLastEventId, getLastEventIdUnsafe, getLastEventIdUnchecked, setSource, getSource, getSourceUnsafe, getSourceUnchecked, setPorts, getPorts, getPortsUnsafe, getPortsUnchecked, MessageEventInit(..), gTypeMessageEventInit)
       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/comms.html#messageeventinit MessageEventInit specification>
newMessageEventInit :: (MonadDOM m) => m MessageEventInit
newMessageEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-data MessageEventInit.data specification>
setData :: (MonadDOM m) => MessageEventInit -> JSVal -> m ()
setData self val = liftDOM (void (self ^. jss "data" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-data MessageEventInit.data specification>
getData :: (MonadDOM m) => MessageEventInit -> m JSVal
getData self = liftDOM (self ^. js "data")

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-origin MessageEventInit.origin specification>
setOrigin :: (MonadDOM m, ToJSString val) => MessageEventInit -> val -> m ()
setOrigin self val = liftDOM (void (self ^. jss "origin" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-origin MessageEventInit.origin specification>
getOrigin :: (MonadDOM m, FromJSString result) => MessageEventInit -> m (Maybe result)
getOrigin self = liftDOM (((self ^. js "origin") >>= fromMaybeJSString))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-origin MessageEventInit.origin specification>
getOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MessageEventInit -> m result
getOriginUnsafe self = liftDOM ((((self ^. js "origin") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-origin MessageEventInit.origin specification>
getOriginUnchecked :: (MonadDOM m, FromJSString result) => MessageEventInit -> m result
getOriginUnchecked self = liftDOM (((self ^. js "origin") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-lasteventid MessageEventInit.lastEventId specification>
setLastEventId :: (MonadDOM m, ToJSString val) => MessageEventInit -> val -> m ()
setLastEventId self val = liftDOM (void (self ^. jss "lastEventId" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-lasteventid MessageEventInit.lastEventId specification>
getLastEventId :: (MonadDOM m, FromJSString result) => MessageEventInit -> m (Maybe result)
getLastEventId self = liftDOM (((self ^. js "lastEventId") >>= fromMaybeJSString))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-lasteventid MessageEventInit.lastEventId specification>
getLastEventIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MessageEventInit -> m result
getLastEventIdUnsafe self = liftDOM ((((self ^. js "lastEventId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-lasteventid MessageEventInit.lastEventId specification>
getLastEventIdUnchecked :: (MonadDOM m, FromJSString result) => MessageEventInit -> m result
getLastEventIdUnchecked self = liftDOM (((self ^. js "lastEventId") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-source MessageEventInit.source specification>
setSource :: (MonadDOM m, IsMessageEventSource val) => MessageEventInit -> Maybe val -> m ()
setSource self val = liftDOM (void (self ^. jss "source" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-source MessageEventInit.source specification>
getSource :: (MonadDOM m) => MessageEventInit -> m (Maybe MessageEventSource)
getSource self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-source MessageEventInit.source specification>
getSourceUnsafe :: (MonadDOM m, HasCallStack) => MessageEventInit -> m MessageEventSource
getSourceUnsafe self = liftDOM ((((self ^. js "source") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-source MessageEventInit.source specification>
getSourceUnchecked :: (MonadDOM m) => MessageEventInit -> m MessageEventSource
getSourceUnchecked self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-ports MessageEventInit.ports specification>
setPorts :: (MonadDOM m) => MessageEventInit -> [MessagePort] -> m ()
setPorts self val = liftDOM (void (self ^. jss "ports" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-ports MessageEventInit.ports specification>
getPorts :: (MonadDOM m) => MessageEventInit -> m (Maybe [MessagePort])
getPorts self = liftDOM (((self ^. js "ports") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-ports MessageEventInit.ports specification>
getPortsUnsafe :: (MonadDOM m, HasCallStack) => MessageEventInit -> m [MessagePort]
getPortsUnsafe self = liftDOM ((((self ^. js "ports") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-ports MessageEventInit.ports specification>
getPortsUnchecked :: (MonadDOM m) => MessageEventInit -> m [MessagePort]
getPortsUnchecked self = liftDOM (((self ^. js "ports") >>= fromJSValUnchecked))