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

wip

This commit is contained in:
voidlizard 2025-08-14 08:20:28 +03:00
parent 6293fdebf2
commit 241b6346b5
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,6 +37,8 @@ instance Exception WriteMerkleIOError
instance (MonadIO m, h ~ HbSync, Storage s h ByteString m) => MerkleWriter ByteString h s m where instance (MonadIO m, h ~ HbSync, Storage s h ByteString m) => MerkleWriter ByteString h s m where
type instance ToBlockW ByteString = ByteString type instance ToBlockW ByteString = ByteString
-- FIXME: concurrent-enqueue
writeAsMerkle sto bs = do writeAsMerkle sto bs = do
hashes <- do hashes <- do

2
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Class.hs
View File

@ -22,7 +22,7 @@ instance MonadUnliftIO m => Storage NCQStorage HbSync LBS.ByteString m where
putBlock sto lbs = fmap coerce <$> ncqPutBlock sto lbs putBlock sto lbs = fmap coerce <$> ncqPutBlock sto lbs
enqueueBlock sto lbs = fmap coerce <$> ncqPutBlock sto lbs enqueueBlock sto lbs = fmap coerce <$> ncqTossBlock sto lbs
getBlock sto h = runMaybeT $ do getBlock sto h = runMaybeT $ do
bs <- MaybeT (ncqStorageGetBlock sto (coerce h)) bs <- MaybeT (ncqStorageGetBlock sto (coerce h))