1 files changed, 3 insertions, 3 deletions

diff --git a/GPURing.hs b/GPURing.hs
index 3002c9e..904c551 100644
--- a/GPURing.hs
+++ b/GPURing.hs
@@ -25,15 +25,15 @@ import LambdaCube.GL.Input hiding (createObjectCommands)
 -- > ringBuffer <- newRing capacity (VectorRing.new capacity)
 type Update keys = (keys -> Writer [DSum AttributeKey GLUniformValue] ())
 
-new :: Data keys => String -> GLStorage -> (String -> String) -> Int -> IO (TargetBuffer (Update keys))
-new streamName storage toAttr sz = fix $ \retProxy -> do
+new :: Data keys => Primitive -> String -> GLStorage -> (String -> String) -> Int -> IO (TargetBuffer (Update keys))
+new prim streamName storage toAttr sz = fix $ \retProxy -> do
     let paramProxy = paramProxy' retProxy
             where paramProxy' :: io (targetbuffer (keys -> writer)) -> Proxy keys
                   paramProxy' _ = Proxy
     let ps = fieldParameters paramProxy toAttr
     putStrLn $ "Ring params: " ++ show ps
     gd0 <- uploadDynamicBuffer sz ps
-    let gd = gd0 { dPrimitive = LineStrip }
+    let gd = gd0 { dPrimitive = prim }
     Just keys <- return $ lookupAttrKeys (lookupAttributeKey gd . toAttr)
     obj <- addToObjectArray storage streamName [] gd
     -- readIORef (objCommands obj) >>= mapM_ print