Free vao pointers at end

src/Picture/Preload.hs

@@ -107,8 +107,6 @@ preloadRender = do
     return $ RenderData
         { _textures = [dirttex,dirttex]
         , _listShaders = [bslist,lslist,cslist,aslist,eslist]
---        , _lightmapCircleShader = fcs
-        , _backVAO = backgroundvao
         , _dummyVBO = dummyvbo
         , _dummyPtr = dummyptr
         , _lightSourceShader = lsShad
@@ -121,9 +119,8 @@ vaoPointers = (\(_,ps,_) -> ps) . unzip3 . _vaoBufferTargets
 
 cleanUpRenderPreload :: RenderData -> IO ()
 cleanUpRenderPreload pd = do
---    mapM_ free $ vaoPointers $ _triVAO  pd
---    mapM_ free $ vaoPointers $ _textVAO pd
---    mapM_ free $ vaoPointers $ _circVAO pd
---    mapM_ free $ vaoPointers $ _arcVAO  pd
---    mapM_ free $ vaoPointers $ _lineVAO pd
+    mapM_ freeShaderPointers $ _listShaders pd
+    freeShaderPointers $ _lightSourceShader pd
+    freeShaderPointers $ _wallShadowShader pd
+    freeShaderPointers $ _backgroundShader pd
     free $ _dummyPtr pd