Interface tweak to PointPrimitive ring buffer.

1 files changed, 1 insertions, 2 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index cca9524..2b29f0a 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -573,8 +573,7 @@ pushRing w st h k = do
     plane <- readIORef (stPlane st)
     d <- worldCoordinates st h k plane
     Just win <- getWidgetWindow w
-    pushBack (stRingBuffer st) $ do
-        RingPoint{..} <- return $ rKeys (stRingBuffer st)
+    pushBack (stRingBuffer st) $ \RingPoint{..} -> do
         rpPosition @<- d
     windowInvalidateRect win Nothing False
     return d