1 files changed, 1 insertions, 1 deletions
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],[],[],[]]

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
41	newRing storage sz = do	41	newRing storage sz = do
42	startRef <- newIORef 0	42	startRef <- newIORef 0
43	sizeRef <- newIORef 0	43	sizeRef <- newIORef 0
44	gd <- uploadDynamicBuffer sz "position"	44	gd <- uploadDynamicBuffer sz [Parameter "position" V3F]
45	obj <- addToObjectArray storage "Points" [] gd	45	obj <- addToObjectArray storage "Points" [] gd
46	readIORef (objCommands obj) >>= mapM_ print	46	readIORef (objCommands obj) >>= mapM_ print
47	-- [[GLSetUniform 0 GLUniform M44F,GLSetVertexAttribArray 0 5 3 5126 0x0000000000000000,GLDrawArrays 0 0 1],[],[],[]]	47	-- [[GLSetUniform 0 GLUniform M44F,GLSetVertexAttribArray 0 5 3 5126 0x0000000000000000,GLDrawArrays 0 0 1],[],[],[]]