{-# LANGUAGE ForeignFunctionInterface #-}
module WGPU.Raw.Log
(
connectLog,
disconnectLog,
)
where
import Control.Monad.IO.Class (MonadIO)
import Foreign (nullFunPtr)
import WGPU.Raw.Generated.Fun (WGPUHsInstance, wgpuSetLogCallback)
import WGPU.Raw.Types (WGPULogCallback)
connectLog ::
MonadIO m =>
WGPUHsInstance ->
m ()
connectLog :: WGPUHsInstance -> m ()
connectLog WGPUHsInstance
inst = WGPUHsInstance -> WGPULogCallback -> m ()
forall (m :: * -> *).
MonadIO m =>
WGPUHsInstance -> WGPULogCallback -> m ()
wgpuSetLogCallback WGPUHsInstance
inst WGPULogCallback
wgpuhs_logging_callback
disconnectLog ::
MonadIO m =>
WGPUHsInstance ->
m ()
disconnectLog :: WGPUHsInstance -> m ()
disconnectLog WGPUHsInstance
inst = WGPUHsInstance -> WGPULogCallback -> m ()
forall (m :: * -> *).
MonadIO m =>
WGPUHsInstance -> WGPULogCallback -> m ()
wgpuSetLogCallback WGPUHsInstance
inst WGPULogCallback
forall a. FunPtr a
nullFunPtr
foreign import ccall "&wgpuhs_logging_callback"
wgpuhs_logging_callback ::
WGPULogCallback