voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

download parameters tuned

This commit is contained in:
voidlizard 2024-10-18 10:25:23 +03:00
parent 6c1760d303
commit 1315989fcf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/CLI/Mailbox.hs
View File

@ -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"