Cleanup matrices

src/Shader.hs

@@ -2,7 +2,6 @@ module Shader
     ( bindArrayBuffers
     , bindShaderBuffers
     , drawShader
-    , drawShaders
     , freeShaderPointers
     ) where
 --import Geometry.Data
@@ -20,8 +19,6 @@ import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 bindArrayBuffers :: Int -> VBO -> IO ()
 bindArrayBuffers numVs theVBO = do
     bindBuffer ArrayBuffer $= Just (_vbo theVBO)
---    bufferData ArrayBuffer $= 
---        (fromIntegral $ floatSize * numVs * sum (_vboAttribSizes theVBO), _vboPointer theVBO, DynamicDraw)
     bufferSubData 
         ArrayBuffer 
         WriteToBuffer 
@@ -34,9 +31,6 @@ bindShaderBuffers = zipWithM_ f
   where 
     f fs i = bindArrayBuffers i $ _vaoVBO $ _shaderVAO fs
 
-drawShaders :: [FullShader] -> [Int] -> IO ()
-drawShaders = zipWithM_ drawShader
-
 drawShader :: FullShader -> Int -> IO ()
 {-# INLINE drawShader #-}
 drawShader fs i = do