ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/MessageEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.MessageEventInit
       (js_newMessageEventInit, js_setData, js_getData, js_setOrigin, js_getOrigin, js_setLastEventId, js_getLastEventId, js_setSource, js_getSource, js_setPorts, js_getPorts, 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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newMessageEventInit :: IO MessageEventInit
-- | <https://html.spec.whatwg.org/multipage/comms.html#messageeventinit MessageEventInit specification>
newMessageEventInit :: (MonadDOM m) => m MessageEventInit
newMessageEventInit = liftDOM ((js_newMessageEventInit))

foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"
        js_setData :: MessageEventInit -> JSVal -> IO ()
-- | <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 ((js_setData (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"
        js_getData :: MessageEventInit -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-data MessageEventInit.data specification>
getData :: (MonadDOM m) => MessageEventInit -> m JSVal
getData self = liftDOM ((js_getData (self)))

foreign import javascript safe "(($1, $2) => { $1[\"origin\"] = $2; })"
        js_setOrigin :: MessageEventInit -> JSString -> IO ()
-- | <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 ((js_setOrigin (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"origin\"]; })"
        js_getOrigin :: MessageEventInit -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getOrigin (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getOrigin (self))) >>= 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 ((pFromJSVal <$> (js_getOrigin (self))))

foreign import javascript safe "(($1, $2) => { $1[\"lastEventId\"] = $2; })"
        js_setLastEventId :: MessageEventInit -> JSString -> IO ()
-- | <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 ((js_setLastEventId (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"lastEventId\"]; })"
        js_getLastEventId :: MessageEventInit -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getLastEventId (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getLastEventId (self))) >>= 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 ((pFromJSVal <$> (js_getLastEventId (self))))

foreign import javascript safe "(($1, $2) => { $1[\"source\"] = $2; })"
        js_setSource :: MessageEventInit -> JSVal -> IO ()
-- | <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 (((toJSVal val) >>= \a2' -> js_setSource (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"source\"]; })"
        js_getSource :: MessageEventInit -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-source MessageEventInit.source specification>
getSource :: (MonadDOM m) => MessageEventInit -> m (Maybe MessageEventSource)
getSource self = liftDOM (((js_getSource (self)) >>= 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 ((((js_getSource (self)) >>= 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 ((pFromJSVal <$> (js_getSource (self))))

foreign import javascript safe "(($1, $2) => { $1[\"ports\"] = $2; })"
        js_setPorts :: MessageEventInit -> JSVal -> IO ()
-- | <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 (((toJSVal val) >>= \a2' -> js_setPorts (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"ports\"]; })"
        js_getPorts :: MessageEventInit -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/comms.html#dom-messageeventinit-ports MessageEventInit.ports specification>
getPorts :: (MonadDOM m) => MessageEventInit -> m (Maybe [MessagePort])
getPorts self = liftDOM (((js_getPorts (self)) >>= 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 ((((js_getPorts (self)) >>= 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 (((js_getPorts (self)) >>= fromJSValUnchecked))