Cleanup window buffers

src/Shader/Bind.hs

@@ -26,12 +26,12 @@ bufferPokedVBO theVBO numVs =
         (_vboPtr theVBO)
 
 bufferEBO :: UintBO -> Int -> IO ()
-bufferEBO ebo numis =
-    glNamedBufferSubData
-        (ebo ^. uiboName)
-        0
-        (fromIntegral $ gluintSize * numis)
-        (ebo ^. uiboPtr)
+bufferEBO x i =
+    glNamedBufferSubData (x ^. uiboName) 0 (fromIntegral $ gluintSize * i) (x ^. uiboPtr)
+
+--bufferFloatBO :: VBO -> Int -> IO ()
+--bufferFloatBO x i = undefined
+--    glNamedBufferSubData (x ^. uiboName) 0 (fromIntegral $ gluintSize * i) (x ^. uiboPtr)
 
 bufferShaderLayers :: MV.MVector (PrimState IO) (Shader, VBO) -> UMV.MVector (PrimState IO) Int -> IO ()
 bufferShaderLayers shads counts = MV.imapM_ f shads