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

---
 .../lib/HBS2/Net/Proto/Actors/BlockInfo.hs     | 18 +++++++++++++++++-
 hbs2-core/lib/HBS2/Prelude.hs                  |  2 ++
 hbs2-core/test/TestFakeMessaging.hs            | 14 --------------
 3 files changed, 19 insertions(+), 15 deletions(-)

diff --git a/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs b/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs
index ead0d8d8..98008848 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/Actors/BlockInfo.hs
@@ -1,10 +1,26 @@
 module HBS2.Net.Proto.Actors.BlockInfo where
 
+import HBS2.Prelude
+import HBS2.Hash
+
 -- needs: logger
 -- needs: reader and shit
 -- needs: messaging
-newtype BlockInfo  = BlockInfo ()
+newtype BlockInfoActor  = BlockInfoActor ()
 
 
+-- TODO: send block info request
+-- TODO: receive block info request
+-- TODO: cache block info per peer
+-- TODO: get block info per peer
+
+
+createBlockInfoActor :: MonadIO m => m BlockInfoActor
+createBlockInfoActor = do
+  pure $ BlockInfoActor ()
+
+sendBlockInfoRequest :: MonadIO m => BlockInfoActor -> Hash h -> m  ()
+sendBlockInfoRequest b h = do
+  undefined
 
 
diff --git a/hbs2-core/lib/HBS2/Prelude.hs b/hbs2-core/lib/HBS2/Prelude.hs
index bd646be8..64f3ea78 100644
--- a/hbs2-core/lib/HBS2/Prelude.hs
+++ b/hbs2-core/lib/HBS2/Prelude.hs
@@ -1,11 +1,13 @@
 module HBS2.Prelude
   ( module Data.String
   , module Safe
+  , MonadIO
   -- , module HBS2.Prelude
   ) where
 
 import Data.String (IsString(..))
 import Safe
+import Control.Monad.IO.Class (MonadIO)
 
 
 
diff --git a/hbs2-core/test/TestFakeMessaging.hs b/hbs2-core/test/TestFakeMessaging.hs
index 5099a42e..ef210de0 100644
--- a/hbs2-core/test/TestFakeMessaging.hs
+++ b/hbs2-core/test/TestFakeMessaging.hs
@@ -15,19 +15,6 @@ import Data.Word
 import Data.Set qualified as Set
 import Data.Map qualified as Map
 
--- import Control.Monad.Writer
--- import Data.Hashable
--- import Data.IORef
--- import Data.Map qualified as Map
--- import Data.Set qualified as Set
--- import Data.Tuple
--- import Data.Word
--- import System.Random
-
--- import Data.HbSync.Types
--- import Network.HbSync.Protocol.Messaging
--- import Network.HbSync.Protocol.Messaging.Fake
-
 
 data Fake
 
@@ -42,7 +29,6 @@ testFakeMessaging1 = do
 
   gen <- newIORef (mkStdGen 0x4387ddaA10124)
 
-
   let peers = fmap FakePeer [1..10]
 
   bus <- newFakeP2P @Fake @Word16 False