PushMessageData.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from push-api (webref). Do not edit.
module JSDOM.Generated.PushMessageData
       (arrayBuffer, arrayBuffer_, blob, blob_, bytes, bytes_, json, json_, text, text_, PushMessageData(..), gTypePushMessageData)
       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/PushMessageData/arrayBuffer MDN PushMessageData.arrayBuffer documentation>
arrayBuffer :: (MonadDOM m) => PushMessageData -> m ArrayBuffer
arrayBuffer self = liftDOM (((self ^. jsf "arrayBuffer" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/arrayBuffer MDN PushMessageData.arrayBuffer documentation>
arrayBuffer_ :: (MonadDOM m) => PushMessageData -> m ()
arrayBuffer_ self = liftDOM (void (self ^. jsf "arrayBuffer" ()))

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/blob MDN PushMessageData.blob documentation>
blob :: (MonadDOM m) => PushMessageData -> m Blob
blob self = liftDOM (((self ^. jsf "blob" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/blob MDN PushMessageData.blob documentation>
blob_ :: (MonadDOM m) => PushMessageData -> m ()
blob_ self = liftDOM (void (self ^. jsf "blob" ()))

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/bytes MDN PushMessageData.bytes documentation>
bytes :: (MonadDOM m) => PushMessageData -> m Uint8Array
bytes self = liftDOM (((self ^. jsf "bytes" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/bytes MDN PushMessageData.bytes documentation>
bytes_ :: (MonadDOM m) => PushMessageData -> m ()
bytes_ self = liftDOM (void (self ^. jsf "bytes" ()))

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/json MDN PushMessageData.json documentation>
json :: (MonadDOM m) => PushMessageData -> m JSVal
json self = liftDOM (self ^. jsf "json" ())

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/json MDN PushMessageData.json documentation>
json_ :: (MonadDOM m) => PushMessageData -> m ()
json_ self = liftDOM (void (self ^. jsf "json" ()))

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

-- | <https://developer.mozilla.org/docs/Web/API/PushMessageData/text MDN PushMessageData.text documentation>
text_ :: (MonadDOM m) => PushMessageData -> m ()
text_ self = liftDOM (void (self ^. jsf "text" ()))