Deallocate GPU resources when done with them.

1 files changed, 5 insertions, 2 deletions

diff --git a/LambdaCubeWidget.hs b/LambdaCubeWidget.hs
index 17bb361..0adb70c 100644
--- a/LambdaCubeWidget.hs
+++ b/LambdaCubeWidget.hs
@@ -70,11 +70,14 @@ lcrender lc gl = do
 lcunrealize :: LCMethods x -> IO ()
 lcunrealize lc = do
     m <- tryTakeMVar $ lcRealized lc
-    mapM_ (\(LCRealized _ _ x) -> lcDestroyState lc x) m
+    forM_ m $ \(LCRealized storage renderer x) -> do
+        LC.disposeStorage storage
+        LC.disposeRenderer renderer
+        lcDestroyState lc x
 
 lcrealize :: LCMethods x -> IO ()
 lcrealize lc = do
-    _ <- tryTakeMVar (lcRealized lc)
+    lcunrealize lc
     storage <- LC.allocStorage (dynamicSchema $ lcPipeline lc)
     x <- lcUploadState lc storage
     renderer <- LC.allocRenderer (dynamicPipeline $ lcPipeline lc)