Cleanup
This commit is contained in:
+1
-5
@@ -1,6 +1,5 @@
|
||||
module Shader
|
||||
( freeShaderPointers
|
||||
, freeShaderPointers'
|
||||
( freeShaderPointers'
|
||||
, drawShaderLay
|
||||
, shadVBOptr
|
||||
, shadVBOptr'
|
||||
@@ -57,9 +56,6 @@ drawShader fs i = do
|
||||
0
|
||||
(fromIntegral i)
|
||||
|
||||
freeShaderPointers :: FullShader -> IO ()
|
||||
freeShaderPointers = free . _vboPtr . _vaoVBO . _shadVAO
|
||||
|
||||
freeShaderPointers' :: FullShader' -> IO ()
|
||||
freeShaderPointers' = free . _vboPtr . _vaoVBO . _shadVAO'
|
||||
|
||||
|
||||
Reference in New Issue
Block a user