Minor cleanups

2022-02-10 10:50:29 +00:00
parent 0a860e6f68
commit 700ab8d930
8 changed files with 26 additions and 36 deletions
@@ -50,7 +50,7 @@ drawShader fs i = do
        (fromIntegral i)

 freeShaderPointers :: FullShader -> IO ()
-freeShaderPointers fs = free $ _vboPtr $ _vaoVBO $ _shadVAO fs
+freeShaderPointers = free . _vboPtr . _vaoVBO . _shadVAO

 pokeBindFoldable
    :: MV.MVector (PrimState IO) FullShader