From d144e1d0b45421d102751cdf584126810ab33ba5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 30 Oct 2024 21:42:35 +0100 Subject: Create new Object, Storable and Storage modules Changelog: API: Split Erebos.Storage into multiple modules --- main/Main.hs | 4 +++- main/Test.hs | 4 +++- main/Test/Service.hs | 3 ++- 3 files changed, 8 insertions(+), 3 deletions(-) (limited to 'main') diff --git a/main/Main.hs b/main/Main.hs index b2aca21..b148aa6 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -47,11 +47,13 @@ import Erebos.ICE import Erebos.Identity import Erebos.Message hiding (formatMessage) import Erebos.Network -import Erebos.Object.Internal +import Erebos.Object import Erebos.PubKey import Erebos.Service import Erebos.Set import Erebos.State +import Erebos.Storable +import Erebos.Storage import Erebos.Storage.Merge import Erebos.Sync diff --git a/main/Test.hs b/main/Test.hs index 7dc7e43..4c23453 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -37,12 +37,14 @@ import Erebos.Contact import Erebos.Identity import Erebos.Message import Erebos.Network -import Erebos.Object.Internal +import Erebos.Object import Erebos.Pairing import Erebos.PubKey import Erebos.Service import Erebos.Set import Erebos.State +import Erebos.Storable +import Erebos.Storage import Erebos.Storage.Internal (unsafeStoreRawBytes) import Erebos.Storage.Merge import Erebos.Sync diff --git a/main/Test/Service.hs b/main/Test/Service.hs index c81722d..8c58dee 100644 --- a/main/Test/Service.hs +++ b/main/Test/Service.hs @@ -8,8 +8,9 @@ import Control.Monad.Reader import Data.ByteString.Lazy.Char8 qualified as BL import Erebos.Network -import Erebos.Object.Internal +import Erebos.Object import Erebos.Service +import Erebos.Storable data TestMessage = TestMessage (Stored Object) -- cgit v1.2.3