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

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

@ -258,8 +258,6 @@ updateStats updTime blknum = do
blockDownloadLoop :: forall e m . ( m ~ PeerM e IO blockDownloadLoop :: forall e m . ( m ~ PeerM e IO
-- , e ~ Fake
-- , Serialise (Encoded e)
, MonadIO m , MonadIO m
, Request e (BlockInfo e) m , Request e (BlockInfo e) m
, Request e (BlockAnnounce e) m , Request e (BlockAnnounce e) m
@ -268,8 +266,6 @@ blockDownloadLoop :: forall e m . ( m ~ PeerM e IO
, EventListener e (BlockInfo e) m , EventListener e (BlockInfo e) m
, EventListener e (BlockChunks e) m , EventListener e (BlockChunks e) m
, EventListener e (BlockAnnounce e) m , EventListener e (BlockAnnounce e) m
-- , EventEmitter e (BlockChunks e) m
-- , EventEmitter e (BlockInfo e) m
, Sessions e (BlockInfo e) m , Sessions e (BlockInfo e) m
, Sessions e (BlockChunks e) m , Sessions e (BlockChunks e) m
, Sessions e (Stats e) m , Sessions e (Stats e) m
@ -279,8 +275,6 @@ blockDownloadLoop :: forall e m . ( m ~ PeerM e IO
, Num (Peer e) , Num (Peer e)
, Pretty (Peer e) , Pretty (Peer e)
, Block ByteString ~ ByteString , Block ByteString ~ ByteString
-- , Encoded e ~ ByteString
-- , Key HbSync ~ Hash HbSync
) )
=> ChunkWriter HbSync IO -> m () => ChunkWriter HbSync IO -> m ()
blockDownloadLoop cw = do blockDownloadLoop cw = do