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

debug

This commit is contained in:
voidlizard 2024-10-13 11:47:44 +03:00
parent 224fbf3cf8
commit 98290d6c76
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-peer/app/MailboxProtoWorker.hs
View File

@ -351,7 +351,9 @@ startDownloadStuff :: forall s e m . (ForMailbox s, s ~ Encryption e, MyPeer e,
startDownloadStuff MailboxProtoWorker{..} href = do startDownloadStuff MailboxProtoWorker{..} href = do
liftIO $ withPeerM mpwPeerEnv $ withDownload mpwDownloadEnv liftIO $ withPeerM mpwPeerEnv $ withDownload mpwDownloadEnv
$ addDownload @e Nothing (coerce href) $ do
debug $ "startDownloadStuff" <+> pretty href
addDownload @e Nothing (coerce href)
listMailboxes :: forall s m . (ForMailbox s, MonadIO m) listMailboxes :: forall s m . (ForMailbox s, MonadIO m)
=> DBPipeEnv => DBPipeEnv

3
hbs2-peer/app/PeerTypes.hs
View File

@ -312,6 +312,9 @@ addDownload :: forall e m . ( DownloadConstr e m
addDownload mbh h = do addDownload mbh h = do
-- FIXME: remove-shit
debug $ "addDownload" <+> pretty h
tinq <- asks (view blockInQ) tinq <- asks (view blockInQ)
checkQ <- asks (view blockCheckQ) checkQ <- asks (view blockCheckQ)
dirty <- asks (view blockInDirty) dirty <- asks (view blockInDirty)