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

tree parameters optimization

This commit is contained in:
Dmitry Zuikov 2024-02-07 13:52:21 +03:00
parent 3550d8d624
commit 656933720b
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
View File

@ -255,7 +255,7 @@ instance ( MonadIO m
let hashes = catMaybes hashes' let hashes = catMaybes hashes'
-- -- FIXME: handle-hardcode -- -- FIXME: handle-hardcode
let pt = toPTree (MaxSize 256) (MaxNum 256) hashes -- FIXME: settings let pt = toPTree (MaxSize 4096) (MaxNum 256) hashes -- FIXME: settings
-- FIXME: this-might-not-be-true -- FIXME: this-might-not-be-true
result <- runWriterT $ makeMerkle 0 pt $ \(hx,mt,bss) -> do result <- runWriterT $ makeMerkle 0 pt $ \(hx,mt,bss) -> do

2
hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
View File

@ -41,7 +41,7 @@ instance (MonadIO m, h ~ HbSync, Storage s h ByteString m) => MerkleWriter ByteS
& S.toList_ & S.toList_
-- FIXME: handle-hardcode -- FIXME: handle-hardcode
let pt = toPTree (MaxSize 256) (MaxNum 256) hashes -- FIXME: settings let pt = toPTree (MaxSize 4096) (MaxNum 256) hashes -- FIXME: settings
makeMerkle 0 pt $ \(_,_,bss) -> do makeMerkle 0 pt $ \(_,_,bss) -> do
void $ putBlock sto bss void $ putBlock sto bss

6
hbs2-storage-simple/lib/HBS2/Storage/Simple/Extra.hs
View File

@ -30,7 +30,7 @@ import Streaming qualified as S
import System.IO import System.IO
pieces :: Integral a => a pieces :: Integral a => a
pieces = 1024 pieces = 4096
-- FIXME: to-remove-in-a-sake-of-operations-class -- FIXME: to-remove-in-a-sake-of-operations-class
class MonadIO m => SimpleStorageExtra a m where class MonadIO m => SimpleStorageExtra a m where
@ -89,7 +89,7 @@ instance MonadIO m => SimpleStorageExtra (S.Stream (S.Of ByteString) m ()) m whe
instance MonadIO m => SimpleStorageExtra [HashRef] m where instance MonadIO m => SimpleStorageExtra [HashRef] m where
putAsMerkle ss hashes = do putAsMerkle ss hashes = do
let pt = toPTree (MaxSize pieces) (MaxNum pieces) hashes -- FIXME: settings let pt = toPTree (MaxSize pieces) (MaxNum 256) hashes -- FIXME: settings
root <- makeMerkle 0 pt $ \(_,_,bs) -> void $ putBlock ss bs root <- makeMerkle 0 pt $ \(_,_,bs) -> void $ putBlock ss bs
@ -105,7 +105,7 @@ instance MonadIO m => SimpleStorageExtra ByteString m where
& S.map (HashRef . hashObject) & S.map (HashRef . hashObject)
& S.toList_ & S.toList_
let pt = toPTree (MaxSize pieces) (MaxNum pieces) hashes -- FIXME: settings let pt = toPTree (MaxSize pieces) (MaxNum 256) hashes -- FIXME: settings
root <- makeMerkle 0 pt $ \(_,_,bss) -> void $ putBlock ss bss root <- makeMerkle 0 pt $ \(_,_,bss) -> void $ putBlock ss bss