From cda69cacce1fb9d00bc718605fe75d5a66df32f4 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 13 Jan 2023 10:09:25 +0300
Subject: [PATCH] wip

---
 hbs2-core/hbs2-core.cabal                        | 4 +++-
 hbs2-core/lib/HBS2/Net/Proto.hs                  | 6 ++++++
 hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs | 3 +++
 3 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 hbs2-core/lib/HBS2/Net/Proto.hs
 create mode 100644 hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs

diff --git a/hbs2-core/hbs2-core.cabal b/hbs2-core/hbs2-core.cabal
index 99db6ab6..5579c9a5 100644
--- a/hbs2-core/hbs2-core.cabal
+++ b/hbs2-core/hbs2-core.cabal
@@ -64,14 +64,16 @@ library
 
     exposed-modules:
                     , HBS2.Defaults
+                    , HBS2.Clock
                     , HBS2.Data.Types
                     , HBS2.Data.Types.Refs
                     , HBS2.Hash
                     , HBS2.Merkle
-                    , HBS2.Clock
+                    , HBS2.Net.Proto
                     , HBS2.Prelude
                     , HBS2.Prelude.Plated
                     , HBS2.Storage
+                    , HBS2.Net.Proto.Actors.BlockInfo
 
 
     -- other-modules:
diff --git a/hbs2-core/lib/HBS2/Net/Proto.hs b/hbs2-core/lib/HBS2/Net/Proto.hs
new file mode 100644
index 00000000..748571ff
--- /dev/null
+++ b/hbs2-core/lib/HBS2/Net/Proto.hs
@@ -0,0 +1,6 @@
+module HBS2.Net.Proto where
+
+import Data.Hashable
+
+class (Hashable a, Eq a) => IsPeer a where
+
diff --git a/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs b/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs
new file mode 100644
index 00000000..0c2f9c7e
--- /dev/null
+++ b/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs
@@ -0,0 +1,3 @@
+module HBS2.Net.Proto.Actors.BlockInfo where
+
+