further clean allocations

This commit is contained in:
nek0 2023-05-01 19:13:21 +02:00
parent bd578e1d98
commit 6f369cbec1

View file

@ -40,12 +40,7 @@ initAllocator physicalDevice device instance' = do
} :: VMA.VulkanFunctions)
} :: VMA.AllocatorCreateInfo
(_, allocator) <- allocate
(VMA.createAllocator allocatorInfo)
(\allocator -> do
putStrLn "destroying allocator"
VMA.destroyAllocator allocator
)
(_, allocator) <- VMA.withAllocator allocatorInfo allocate
return allocator