mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use worker pool in withLocalP2PConnections

Browse source 
This allows multiple clients to be handled at the same time.
This commit is contained in:
Joey Hess 2024-07-11 14:37:52 -04:00
parent 68227154fb
commit 97a2d0e4fb
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 61 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/P2PHttp.hs
View file

@ -75,7 +75,7 @@ seek o = getAnnexWorkerPool $ \workerpool -> do
liftIO $ putStrLn "test begins"
testGet
giveup "TEST DONE"
withLocalP2PConnections $ \acquireconn -> liftIO $ do
withLocalP2PConnections workerpool $ \acquireconn -> liftIO $ do
authenv <- getAuthEnv
st <- mkP2PHttpServerState acquireconn workerpool $
mkGetServerMode authenv o