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"