1 files changed, 1 insertions, 1 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 15af94f..dc0adf1 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -172,7 +172,7 @@ uploadState obj glarea storage = do
     let bufsize = 1000
     v <- MV.unsafeNew bufsize
     pts <- newRing bufsize (Vector.new v)
-    ring <- newRing bufsize (GPU.new storage ringPointAttr bufsize)
+    ring <- newRing bufsize (GPU.new "Points" storage ringPointAttr bufsize)
 
     -- setup FrameClock
     w <- toWidget glarea