Factored gpu-backend out of RingBuffer, wrote vector-backend.

1 files changed, 17 insertions, 0 deletions

diff --git a/VectorRing.hs b/VectorRing.hs
new file mode 100644
index 0000000..2ddac72
--- /dev/null
+++ b/VectorRing.hs
@@ -0,0 +1,17 @@
+module VectorRing where
+
+import Data.Vector.Unboxed.Mutable
+import RingBuffer
+
+-- | Typical usage:
+--
+-- > ringBuffer <- newRing capacity (VectorRing.new capacity)
+new :: Unbox a => Int -> IO (TargetBuffer a)
+new sz = do
+    v <- unsafeNew sz
+    return () :: IO ()
+    return TargetBuffer
+        { syncBuffer   = \_ -> return ()
+        , updateBuffer = \i u -> write v i u
+        }
+