Avoid adding redundant points to ring buffer.

1 files changed, 6 insertions, 0 deletions

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)