From 6f369cbec12e080618403e85ff434f056b71cca9 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
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