From 6cc15c6cd859070fda1b46995108fbfc3e13a5db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 7 Dec 2024 20:01:55 +0100
Subject: StorageBackend type class

Changelog: API: Added `StorageBackend` type class to allow custom storage implementation
---
 src/Erebos/Storage/Backend.hs | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 src/Erebos/Storage/Backend.hs

(limited to 'src/Erebos/Storage/Backend.hs')

diff --git a/src/Erebos/Storage/Backend.hs b/src/Erebos/Storage/Backend.hs
new file mode 100644
index 0000000..620d423
--- /dev/null
+++ b/src/Erebos/Storage/Backend.hs
@@ -0,0 +1,28 @@
+{-|
+Description: Implement custom storage backend
+
+Exports type class, which can be used to create custom 'Storage' backend.
+-}
+
+module Erebos.Storage.Backend (
+    StorageBackend(..),
+    Complete, Partial,
+    Storage, PartialStorage,
+    newStorage,
+
+    WatchID, startWatchID, nextWatchID,
+) where
+
+import Control.Concurrent.MVar
+
+import Data.HashTable.IO qualified as HT
+
+import Erebos.Object.Internal
+import Erebos.Storage.Internal
+
+
+newStorage :: StorageBackend bck => bck -> IO (Storage' (BackendCompleteness bck))
+newStorage stBackend = do
+    stRefGeneration <- newMVar =<< HT.new
+    stRefRoots <- newMVar =<< HT.new
+    return Storage {..}
-- 
cgit v1.2.3