Define shape datatype

2021-09-14 01:17:07 +01:00
parent 29f048cfdd
commit 294e01479a
18 changed files with 226 additions and 111 deletions
@@ -16,6 +16,7 @@ import Control.Monad.Primitive
 import Control.Monad

 bindArrayBuffers :: Int -> VBO -> IO ()
+{-# INLINABLE bindArrayBuffers #-}
 bindArrayBuffers numVs theVBO = do
    bindBuffer ArrayBuffer $= Just (_vbo theVBO)
    bufferSubData