From defa1540e5e60ee2a32877f66f4dc0c84c5057d1 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 24 Jan 2023 07:14:33 +0300
Subject: [PATCH] wip

---
 hbs2-tests/test/Peer2Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs
index 07be97d1..fc756c12 100644
--- a/hbs2-tests/test/Peer2Main.hs
+++ b/hbs2-tests/test/Peer2Main.hs
@@ -395,7 +395,7 @@ main = do
 
     fake <- newFakeP2P True <&> Fabriq
 
-    let (p0:ps) = [0..4] :: [Peer Fake]
+    let (p0:ps) = [0..1] :: [Peer Fake]
 
     -- others
     others <- forM ps $ \p -> async $ runTestPeer p $ \s cw  -> do