From 6f369cbec12e080618403e85ff434f056b71cca9 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 1 May 2023 19:13:21 +0200 Subject: [PATCH] further clean allocations --- src/Memory.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/Memory.hs b/src/Memory.hs index eefab17..90a6458 100644 --- a/src/Memory.hs +++ b/src/Memory.hs @@ -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