From 1595a9ea3ca1080ebf7d060ea28aecf19df8f968 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 26 May 2019 00:03:45 -0400
Subject: Avoid adding redundant points to ring buffer.

---
 PointPrimitiveRing.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'PointPrimitiveRing.hs')

diff --git a/PointPrimitiveRing.hs b/PointPrimitiveRing.hs
index c458421..54405e4 100644
--- a/PointPrimitiveRing.hs
+++ b/PointPrimitiveRing.hs
@@ -70,6 +70,12 @@ newRing storage sz toAttr = fix $ \retProxy -> do
     updateRingCommands r
     return r
 
+clearRing :: Ring keys -> IO ()
+clearRing r = do
+    writeIORef (rBack r) 0
+    writeIORef (rSize r) 0
+    updateRingCommands r
+
 updateRingCommands :: Ring keys -> IO ()
 updateRingCommands r = do
     back <- fromIntegral <$> readIORef (rBack r)
-- 
cgit v1.2.3