GPUFragmentState.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.GPUFragmentState
       (js_newGPUFragmentState, js_setTargets, js_getTargets, newGPUFragmentState, setTargets, getTargets, GPUFragmentState(..), gTypeGPUFragmentState)
       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, $2) => { return ({\"module\": $1, \"targets\": $2}); })"
        js_newGPUFragmentState :: GPUShaderModule -> JSVal -> IO GPUFragmentState
-- | <https://gpuweb.github.io/gpuweb/#dictdef-gpufragmentstate GPUFragmentState specification>
newGPUFragmentState :: (MonadDOM m) => GPUShaderModule -> [Maybe GPUColorTargetState] -> m GPUFragmentState
newGPUFragmentState module' targets = liftDOM (((toJSVal targets) >>= \a2' -> js_newGPUFragmentState (module') a2'))

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

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