From 1315989fcf3c5bd77a4ab9ecd6a06a3f91b6cbb6 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Fri, 18 Oct 2024 10:25:23 +0300
Subject: [PATCH] download parameters tuned

---
 hbs2-peer/app/CLI/Mailbox.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-peer/app/CLI/Mailbox.hs b/hbs2-peer/app/CLI/Mailbox.hs
index 8da45c8c..1370e4f8 100644
--- a/hbs2-peer/app/CLI/Mailbox.hs
+++ b/hbs2-peer/app/CLI/Mailbox.hs
@@ -235,7 +235,7 @@ runMailboxCLI rpc s = do
          $ entry $ bindMatch "read" $ nil_ $ \case
             [ HashLike mhash ] -> do
 
-              let rms = ReadMessageServices ( liftIO . runKeymanClientRO . extractGroupKeySecret)
+              let rms = ReadMessageServices (liftIO . runKeymanClientRO . extractGroupKeySecret)
 
               (s,_,bs) <- getBlock sto (coerce mhash)
                             >>= orThrowUser "message not found"