From 88d3788c996020ef20543cc5f712c3e8ce6f490a Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 29 Jul 2024 09:34:47 +0300
Subject: [PATCH] wip

---
 hbs2-cli/lib/HBS2/CLI/Run/Peer.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/hbs2-cli/lib/HBS2/CLI/Run/Peer.hs b/hbs2-cli/lib/HBS2/CLI/Run/Peer.hs
index 7bac7aee..0630b1f0 100644
--- a/hbs2-cli/lib/HBS2/CLI/Run/Peer.hs
+++ b/hbs2-cli/lib/HBS2/CLI/Run/Peer.hs
@@ -38,10 +38,8 @@ putTextLit sto s = do
 peerEntries :: forall c m . (c ~ C, IsContext c, MonadUnliftIO m) => MakeDictM c m ()
 peerEntries = do
 
-  entry $ bindMatch "hbs2:peer:detect" $ nil_ \case
-    _ -> do
-      so <- detectRPC
-      display so
+  entry $ bindMatch "hbs2:peer:detect" $ \case
+    _ -> detectRPC <&> maybe (nil @c) mkStr
 
   entry $ bindMatch "hbs2:peer:get-block" $ \case
     [StringLike s] -> do