GPURenderPassTimestampWrites.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webgpu (webref). Do not edit.
module JSDOM.Generated.GPURenderPassTimestampWrites
       (newGPURenderPassTimestampWrites, setQuerySet, getQuerySet, setBeginningOfPassWriteIndex, getBeginningOfPassWriteIndex, getBeginningOfPassWriteIndexUnsafe, getBeginningOfPassWriteIndexUnchecked, setEndOfPassWriteIndex, getEndOfPassWriteIndex, getEndOfPassWriteIndexUnsafe, getEndOfPassWriteIndexUnchecked, GPURenderPassTimestampWrites(..), gTypeGPURenderPassTimestampWrites)
       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://gpuweb.github.io/gpuweb/#dictdef-gpurenderpasstimestampwrites GPURenderPassTimestampWrites specification>
newGPURenderPassTimestampWrites :: (MonadDOM m) => GPUQuerySet -> m GPURenderPassTimestampWrites
newGPURenderPassTimestampWrites querySet = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "querySet" (toJSVal querySet)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-queryset GPURenderPassTimestampWrites.querySet specification>
setQuerySet :: (MonadDOM m) => GPURenderPassTimestampWrites -> GPUQuerySet -> m ()
setQuerySet self val = liftDOM (void (self ^. jss "querySet" (toJSVal val)))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-queryset GPURenderPassTimestampWrites.querySet specification>
getQuerySet :: (MonadDOM m) => GPURenderPassTimestampWrites -> m GPUQuerySet
getQuerySet self = liftDOM (((self ^. js "querySet") >>= fromJSValUnchecked))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-beginningofpasswriteindex GPURenderPassTimestampWrites.beginningOfPassWriteIndex specification>
setBeginningOfPassWriteIndex :: (MonadDOM m) => GPURenderPassTimestampWrites -> Word -> m ()
setBeginningOfPassWriteIndex self val = liftDOM (void (self ^. jss "beginningOfPassWriteIndex" (toJSVal val)))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-beginningofpasswriteindex GPURenderPassTimestampWrites.beginningOfPassWriteIndex specification>
getBeginningOfPassWriteIndex :: (MonadDOM m) => GPURenderPassTimestampWrites -> m (Maybe Word)
getBeginningOfPassWriteIndex self = liftDOM (((self ^. js "beginningOfPassWriteIndex") >>= fromJSValUnchecked))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-beginningofpasswriteindex GPURenderPassTimestampWrites.beginningOfPassWriteIndex specification>
getBeginningOfPassWriteIndexUnsafe :: (MonadDOM m, HasCallStack) => GPURenderPassTimestampWrites -> m Word
getBeginningOfPassWriteIndexUnsafe self = liftDOM ((((self ^. js "beginningOfPassWriteIndex") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-beginningofpasswriteindex GPURenderPassTimestampWrites.beginningOfPassWriteIndex specification>
getBeginningOfPassWriteIndexUnchecked :: (MonadDOM m) => GPURenderPassTimestampWrites -> m Word
getBeginningOfPassWriteIndexUnchecked self = liftDOM ((P.round <$> ((self ^. js "beginningOfPassWriteIndex") >>= valToNumber)))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-endofpasswriteindex GPURenderPassTimestampWrites.endOfPassWriteIndex specification>
setEndOfPassWriteIndex :: (MonadDOM m) => GPURenderPassTimestampWrites -> Word -> m ()
setEndOfPassWriteIndex self val = liftDOM (void (self ^. jss "endOfPassWriteIndex" (toJSVal val)))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-endofpasswriteindex GPURenderPassTimestampWrites.endOfPassWriteIndex specification>
getEndOfPassWriteIndex :: (MonadDOM m) => GPURenderPassTimestampWrites -> m (Maybe Word)
getEndOfPassWriteIndex self = liftDOM (((self ^. js "endOfPassWriteIndex") >>= fromJSValUnchecked))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-endofpasswriteindex GPURenderPassTimestampWrites.endOfPassWriteIndex specification>
getEndOfPassWriteIndexUnsafe :: (MonadDOM m, HasCallStack) => GPURenderPassTimestampWrites -> m Word
getEndOfPassWriteIndexUnsafe self = liftDOM ((((self ^. js "endOfPassWriteIndex") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpurenderpasstimestampwrites-endofpasswriteindex GPURenderPassTimestampWrites.endOfPassWriteIndex specification>
getEndOfPassWriteIndexUnchecked :: (MonadDOM m) => GPURenderPassTimestampWrites -> m Word
getEndOfPassWriteIndexUnchecked self = liftDOM ((P.round <$> ((self ^. js "endOfPassWriteIndex") >>= valToNumber)))