sendVertices :: [GLfloat] -> IO ()
sendVertices verts =
  let vertSize = sizeOf (head verts)
      numVerts = length verts
      size = fromIntegral (numVerts * vertSize)
   in withArray verts $ \ptr ->
        GL.bufferSubData ArrayBuffer WriteToBuffer 0 size ptr
sendVertices :: [GLfloat] -> IO ()
sendVertices verts =
  let vertSize = sizeOf (head verts)
      numVerts = length verts
      size = fromIntegral (numVerts * vertSize)
   in withArray verts $ \ptr ->
        GL.bufferSubData ArrayBuffer WriteToBuffer 0 size ptr
sendVertices verts =
  let vertSize = sizeOf (head verts)
      numVerts = length verts
      size = fromIntegral (numVerts * vertSize)
   in withArray verts $ \ptr ->
        GL.bufferSubData ArrayBuffer WriteToBuffer 0 size ptr