ExtendableMessageEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from service-workers (webref). Do not edit.
module JSDOM.Generated.ExtendableMessageEventInit
       (newExtendableMessageEventInit, setData, getData, setOrigin, getOrigin, getOriginUnsafe, getOriginUnchecked, setLastEventId, getLastEventId, getLastEventIdUnsafe, getLastEventIdUnchecked, setSource, getSource, getSourceUnsafe, getSourceUnchecked, setPorts, getPorts, getPortsUnsafe, getPortsUnchecked, ExtendableMessageEventInit(..), gTypeExtendableMessageEventInit)
       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://w3c.github.io/ServiceWorker/#dictdef-extendablemessageeventinit ExtendableMessageEventInit specification>
newExtendableMessageEventInit :: (MonadDOM m) => m ExtendableMessageEventInit
newExtendableMessageEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-data ExtendableMessageEventInit.data specification>
setData :: (MonadDOM m) => ExtendableMessageEventInit -> JSVal -> m ()
setData self val = liftDOM (void (self ^. jss "data" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-data ExtendableMessageEventInit.data specification>
getData :: (MonadDOM m) => ExtendableMessageEventInit -> m JSVal
getData self = liftDOM (self ^. js "data")

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-origin ExtendableMessageEventInit.origin specification>
setOrigin :: (MonadDOM m, ToJSString val) => ExtendableMessageEventInit -> val -> m ()
setOrigin self val = liftDOM (void (self ^. jss "origin" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-origin ExtendableMessageEventInit.origin specification>
getOrigin :: (MonadDOM m, FromJSString result) => ExtendableMessageEventInit -> m (Maybe result)
getOrigin self = liftDOM (((self ^. js "origin") >>= fromMaybeJSString))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-origin ExtendableMessageEventInit.origin specification>
getOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ExtendableMessageEventInit -> m result
getOriginUnsafe self = liftDOM ((((self ^. js "origin") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-origin ExtendableMessageEventInit.origin specification>
getOriginUnchecked :: (MonadDOM m, FromJSString result) => ExtendableMessageEventInit -> m result
getOriginUnchecked self = liftDOM (((self ^. js "origin") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-lasteventid ExtendableMessageEventInit.lastEventId specification>
setLastEventId :: (MonadDOM m, ToJSString val) => ExtendableMessageEventInit -> val -> m ()
setLastEventId self val = liftDOM (void (self ^. jss "lastEventId" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-lasteventid ExtendableMessageEventInit.lastEventId specification>
getLastEventId :: (MonadDOM m, FromJSString result) => ExtendableMessageEventInit -> m (Maybe result)
getLastEventId self = liftDOM (((self ^. js "lastEventId") >>= fromMaybeJSString))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-lasteventid ExtendableMessageEventInit.lastEventId specification>
getLastEventIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => ExtendableMessageEventInit -> m result
getLastEventIdUnsafe self = liftDOM ((((self ^. js "lastEventId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-lasteventid ExtendableMessageEventInit.lastEventId specification>
getLastEventIdUnchecked :: (MonadDOM m, FromJSString result) => ExtendableMessageEventInit -> m result
getLastEventIdUnchecked self = liftDOM (((self ^. js "lastEventId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-source ExtendableMessageEventInit.source specification>
setSource :: (MonadDOM m, IsClientOrServiceWorkerOrMessagePort val) => ExtendableMessageEventInit -> Maybe val -> m ()
setSource self val = liftDOM (void (self ^. jss "source" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-source ExtendableMessageEventInit.source specification>
getSource :: (MonadDOM m) => ExtendableMessageEventInit -> m (Maybe ClientOrServiceWorkerOrMessagePort)
getSource self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-source ExtendableMessageEventInit.source specification>
getSourceUnsafe :: (MonadDOM m, HasCallStack) => ExtendableMessageEventInit -> m ClientOrServiceWorkerOrMessagePort
getSourceUnsafe self = liftDOM ((((self ^. js "source") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-source ExtendableMessageEventInit.source specification>
getSourceUnchecked :: (MonadDOM m) => ExtendableMessageEventInit -> m ClientOrServiceWorkerOrMessagePort
getSourceUnchecked self = liftDOM (((self ^. js "source") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-ports ExtendableMessageEventInit.ports specification>
setPorts :: (MonadDOM m) => ExtendableMessageEventInit -> [MessagePort] -> m ()
setPorts self val = liftDOM (void (self ^. jss "ports" (toJSVal val)))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-ports ExtendableMessageEventInit.ports specification>
getPorts :: (MonadDOM m) => ExtendableMessageEventInit -> m (Maybe [MessagePort])
getPorts self = liftDOM (((self ^. js "ports") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-ports ExtendableMessageEventInit.ports specification>
getPortsUnsafe :: (MonadDOM m, HasCallStack) => ExtendableMessageEventInit -> m [MessagePort]
getPortsUnsafe self = liftDOM ((((self ^. js "ports") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/ServiceWorker/#dom-extendablemessageeventinit-ports ExtendableMessageEventInit.ports specification>
getPortsUnchecked :: (MonadDOM m) => ExtendableMessageEventInit -> m [MessagePort]
getPortsUnchecked self = liftDOM (((self ^. js "ports") >>= fromJSValUnchecked))