mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
0ec2cd6e3b
commit
1211c2f050
|
@ -446,7 +446,7 @@ blockDownloadLoop env0 = do
|
||||||
runPeer <- liftIO $ async $ liftIO (withPeerM e $ withDownload env0 (peerDownloadLoop p))
|
runPeer <- liftIO $ async $ liftIO (withPeerM e $ withDownload env0 (peerDownloadLoop p))
|
||||||
withDownload env0 $ newPeerThread p runPeer
|
withDownload env0 $ newPeerThread p runPeer
|
||||||
|
|
||||||
| here && not auth -> do
|
| not auth -> do
|
||||||
withDownload env0 $ delPeerThread p
|
withDownload env0 $ delPeerThread p
|
||||||
-- pure ()
|
-- pure ()
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue