nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

grab the first available queue, not the last

Browse source
This commit is contained in:
nek0 2022-07-12 16:59:39 +02:00
parent 8fef9a4830
commit 857c87f370
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Devices.hs
View file

@ -7,7 +7,7 @@ import Control.Monad
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Control.Monad.Trans.Resource import Control.Monad.Trans.Resource
import qualified Data.Vector as V import qualified Data.Vector as V
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe, isNothing)
import Data.Bits import Data.Bits
import Foreign.C.Types (CInt) import Foreign.C.Types (CInt)
import Linear import Linear
@ -68,7 +68,7 @@ createLogicalDevice physDevice surface = do
let graphicsQueueFamilies = V.foldl let graphicsQueueFamilies = V.foldl
(\acc (index, queueFamily) -> (\acc (index, queueFamily) ->
if Vk.queueFlags queueFamily .&. Vk.QUEUE_GRAPHICS_BIT /= zeroBits if Vk.queueFlags queueFamily .&. Vk.QUEUE_GRAPHICS_BIT /= zeroBits && isNothing acc
then Just index then Just index
else acc else acc
) )