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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webgpu (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.GPUColorTargetState
       (js_newGPUColorTargetState, js_setFormat, js_getFormat, js_setBlend, js_getBlend, js_setWriteMask, js_getWriteMask, newGPUColorTargetState, setFormat, getFormat, setBlend, getBlend, getBlendUnsafe, getBlendUnchecked, setWriteMask, getWriteMask, getWriteMaskUnsafe, getWriteMaskUnchecked, GPUColorTargetState(..), gTypeGPUColorTargetState)
       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 "(($1) => { return ({\"format\": $1}); })"
        js_newGPUColorTargetState :: JSVal -> IO GPUColorTargetState
-- | <https://gpuweb.github.io/gpuweb/#dictdef-gpucolortargetstate GPUColorTargetState specification>
newGPUColorTargetState :: (MonadDOM m) => GPUTextureFormat -> m GPUColorTargetState
newGPUColorTargetState format = liftDOM (((toJSVal format) >>= \a1' -> js_newGPUColorTargetState a1'))

foreign import javascript safe "(($1, $2) => { $1[\"format\"] = $2; })"
        js_setFormat :: GPUColorTargetState -> JSVal -> IO ()
-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-format GPUColorTargetState.format specification>
setFormat :: (MonadDOM m) => GPUColorTargetState -> GPUTextureFormat -> m ()
setFormat self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFormat (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"format\"]; })"
        js_getFormat :: GPUColorTargetState -> IO JSVal
-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-format GPUColorTargetState.format specification>
getFormat :: (MonadDOM m) => GPUColorTargetState -> m GPUTextureFormat
getFormat self = liftDOM (((js_getFormat (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"blend\"] = $2; })"
        js_setBlend :: GPUColorTargetState -> GPUBlendState -> IO ()
-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-blend GPUColorTargetState.blend specification>
setBlend :: (MonadDOM m) => GPUColorTargetState -> GPUBlendState -> m ()
setBlend self val = liftDOM (void ((js_setBlend (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"blend\"]; })"
        js_getBlend :: GPUColorTargetState -> IO JSVal
-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-blend GPUColorTargetState.blend specification>
getBlend :: (MonadDOM m) => GPUColorTargetState -> m (Maybe GPUBlendState)
getBlend self = liftDOM (((js_getBlend (self)) >>= fromJSValUnchecked))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-blend GPUColorTargetState.blend specification>
getBlendUnsafe :: (MonadDOM m, HasCallStack) => GPUColorTargetState -> m GPUBlendState
getBlendUnsafe self = liftDOM ((((js_getBlend (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-blend GPUColorTargetState.blend specification>
getBlendUnchecked :: (MonadDOM m) => GPUColorTargetState -> m GPUBlendState
getBlendUnchecked self = liftDOM ((pFromJSVal <$> (js_getBlend (self))))

foreign import javascript safe "(($1, $2) => { $1[\"writeMask\"] = $2; })"
        js_setWriteMask :: GPUColorTargetState -> Word -> IO ()
-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-writemask GPUColorTargetState.writeMask specification>
setWriteMask :: (MonadDOM m) => GPUColorTargetState -> Word -> m ()
setWriteMask self val = liftDOM (void ((js_setWriteMask (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"writeMask\"]; })"
        js_getWriteMask :: GPUColorTargetState -> IO JSVal
-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-writemask GPUColorTargetState.writeMask specification>
getWriteMask :: (MonadDOM m) => GPUColorTargetState -> m (Maybe Word)
getWriteMask self = liftDOM (((js_getWriteMask (self)) >>= fromJSValUnchecked))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-writemask GPUColorTargetState.writeMask specification>
getWriteMaskUnsafe :: (MonadDOM m, HasCallStack) => GPUColorTargetState -> m Word
getWriteMaskUnsafe self = liftDOM ((((js_getWriteMask (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://gpuweb.github.io/gpuweb/#dom-gpucolortargetstate-writemask GPUColorTargetState.writeMask specification>
getWriteMaskUnchecked :: (MonadDOM m) => GPUColorTargetState -> m Word
getWriteMaskUnchecked self = liftDOM ((pFromJSVal <$> (js_getWriteMask (self))))