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:
Dmitry Zuikov 2023-01-28 07:26:41 +03:00
parent 245d9451ea
commit 8efd981ffd
1 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
hbs2-tests/test/Peer2Main.hs
View File

@ -258,30 +258,24 @@ updateStats updTime blknum = do
blockDownloadLoop :: forall e m . ( m ~ PeerM e IO blockDownloadLoop :: forall e m . ( m ~ PeerM e IO
-- , e ~ Fake , MonadIO m
-- , Serialise (Encoded e) , Request e (BlockInfo e) m
, MonadIO m , Request e (BlockAnnounce e) m
, Request e (BlockInfo e) m , HasProtocol e (BlockInfo e)
, Request e (BlockAnnounce e) m , HasProtocol e (BlockAnnounce e)
, HasProtocol e (BlockInfo e) , EventListener e (BlockInfo e) m
, HasProtocol e (BlockAnnounce e) , EventListener e (BlockChunks e) m
, EventListener e (BlockInfo e) m , EventListener e (BlockAnnounce e) m
, EventListener e (BlockChunks e) m , Sessions e (BlockInfo e) m
, EventListener e (BlockAnnounce e) m , Sessions e (BlockChunks e) m
-- , EventEmitter e (BlockChunks e) m , Sessions e (Stats e) m
-- , EventEmitter e (BlockInfo e) m , Typeable (SessionKey e (BlockChunks e))
, Sessions e (BlockInfo e) m , Typeable (SessionKey e (BlockInfo e))
, Sessions e (BlockChunks e) m , HasStorage m
, Sessions e (Stats e) m , Num (Peer e)
, Typeable (SessionKey e (BlockChunks e)) , Pretty (Peer e)
, Typeable (SessionKey e (BlockInfo e)) , Block ByteString ~ ByteString
, HasStorage m )
, Num (Peer e)
, Pretty (Peer e)
, Block ByteString ~ ByteString
-- , Encoded e ~ ByteString
-- , Key HbSync ~ Hash HbSync
)
=> ChunkWriter HbSync IO -> m () => ChunkWriter HbSync IO -> m ()
blockDownloadLoop cw = do blockDownloadLoop cw = do