From 6c0aef1e25595f456760ffae64088270aa8b0c66 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 22 Jan 2023 14:53:15 +0300
Subject: [PATCH] good.

---
 hbs2-core/lib/HBS2/Actors/Peer.hs | 3 ---
 hbs2-tests/test/Peer2Main.hs      | 4 ++--
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs
index 95151656..cee16edb 100644
--- a/hbs2-core/lib/HBS2/Actors/Peer.hs
+++ b/hbs2-core/lib/HBS2/Actors/Peer.hs
@@ -258,14 +258,11 @@ instance ( HasProtocol e p
     let sk = newSKey @(EventKey e p) k
 
     void $ runMaybeT $ do
-      liftIO $ print $ "GOOD" <+> pretty me <+> pretty (hash sk)
       subs <- MaybeT $ liftIO $ atomically $ readTVar se <&> HashMap.lookup sk
-      liftIO $ print $ "VERY GOOD"  <+> pretty me
       void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk)
       for_ subs $ \r -> do
         ev <- MaybeT $ pure $ fromDynamic @(EventHandler e p (PeerM e IO)) r
         lift $ ev d
-      liftIO $ print $ "FINE" <+> pretty me
 
 runPeerM :: (MonadIO m, Pretty (Peer e)) => AnyStorage -> Fabriq e -> Peer e  -> PeerM e m a -> m ()
 runPeerM s bus p f  = do
diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs
index 285156be..e33615e0 100644
--- a/hbs2-tests/test/Peer2Main.hs
+++ b/hbs2-tests/test/Peer2Main.hs
@@ -170,8 +170,8 @@ blockDownloadLoop :: forall e . ( HasProtocol e (BlockSize e)
 blockDownloadLoop = do
 
   let blks = [ "5KP4vM6RuEX6RA1ywthBMqZV5UJDLANC17UrF6zuWdRt"
-             -- , "81JeD7LNR6Q7RYfyWBxfjJn1RsWzvegkUXae6FUNgrMZ"
-             -- , "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
+             , "81JeD7LNR6Q7RYfyWBxfjJn1RsWzvegkUXae6FUNgrMZ"
+             , "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
              ]
 
   for_ blks $ \h -> do