From 04fc039177d49e1f5f57ce0f61216870d4f723ab Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 19 May 2019 02:16:30 -0400
Subject: Allow multiple attributes for dynamic buffer.

---
 PointPrimitiveRing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'PointPrimitiveRing.hs')

diff --git a/PointPrimitiveRing.hs b/PointPrimitiveRing.hs
index 10040d5..3f2258b 100644
--- a/PointPrimitiveRing.hs
+++ b/PointPrimitiveRing.hs
@@ -41,7 +41,7 @@ newRing :: GLStorage -> Int -> IO Ring
 newRing storage sz = do
     startRef <- newIORef 0
     sizeRef <- newIORef 0
-    gd <- uploadDynamicBuffer sz "position"
+    gd <- uploadDynamicBuffer sz [Parameter "position" V3F]
     obj <- addToObjectArray storage "Points" [] gd
     readIORef (objCommands obj) >>= mapM_ print
         -- [[GLSetUniform 0 GLUniform M44F,GLSetVertexAttribArray 0 5 3 5126 0x0000000000000000,GLDrawArrays 0 0 1],[],[],[]]
-- 
cgit v1.2.3