From 20d017985ff1d69e7ea0c8ea5bd4808e3deab194 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 10 Nov 2024 19:17:56 +0100 Subject: Create Erebos.Storage.Head module --- src/Erebos/Network/Channel.hs | 2 +- src/Erebos/Network/Protocol.hs | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Erebos/Network') diff --git a/src/Erebos/Network/Channel.hs b/src/Erebos/Network/Channel.hs index a6bab79..17e1a37 100644 --- a/src/Erebos/Network/Channel.hs +++ b/src/Erebos/Network/Channel.hs @@ -26,8 +26,8 @@ import Data.ByteString.Lazy qualified as BL import Data.List import Erebos.Identity -import Erebos.Object.Internal import Erebos.PubKey +import Erebos.Storable data Channel = Channel { chPeers :: [Stored (Signed IdentityData)] diff --git a/src/Erebos/Network/Protocol.hs b/src/Erebos/Network/Protocol.hs index 832be0b..c657759 100644 --- a/src/Erebos/Network/Protocol.hs +++ b/src/Erebos/Network/Protocol.hs @@ -67,8 +67,10 @@ import System.Clock import Erebos.Flow import Erebos.Identity import Erebos.Network.Channel -import Erebos.Object.Internal +import Erebos.Object import Erebos.Service +import Erebos.Storable +import Erebos.Storage protocolVersion :: Text -- cgit v1.2.3