{-# LINE 1 "src/Gpu/Vulkan/Queue/Core.hsc" #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.Queue.Core (

	-- SUBMIT AND WAIT IDLE

	Q, submit, waitIdle

	) where

import Foreign.Ptr
import Data.Word
import Data.Int

import Gpu.Vulkan.Core

import {-# SOURCE #-} qualified Gpu.Vulkan.Fence.Core as Fence



data QTag
type Q = Ptr QTag

foreign import ccall "vkQueueSubmit" submit ::
	Q -> Word32 -> Ptr SubmitInfo -> Fence.F ->
{-# LINE 26 "src/Gpu/Vulkan/Queue/Core.hsc" #-}
	IO Int32
{-# LINE 27 "src/Gpu/Vulkan/Queue/Core.hsc" #-}

foreign import ccall "vkQueueWaitIdle" waitIdle :: Q -> IO Int32
{-# LINE 29 "src/Gpu/Vulkan/Queue/Core.hsc" #-}