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

close proxy remote side when done with it

Browse source
This commit is contained in:
Joey Hess 2024-07-26 13:57:28 -04:00
parent b028b1a379
commit 5ebbb31b36
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
P2P/Http/State.hs
View file

@ -346,8 +346,6 @@ proxyConnection relv connparams workerpool proxyconn = do
inAnnexWorker' workerpool $ do
proxystate <- liftIO Proxy.mkProxyState
concurrencyconfig <- Proxy.noConcurrencyConfig
let protocolversion = min remoteprotocolversion $
connectionProtocolVersion connparams
let proxyparams = Proxy.ProxyParams
{ Proxy.proxyMethods = mkProxyMethods
, Proxy.proxyState = proxystate
@ -357,7 +355,7 @@ proxyConnection relv connparams workerpool proxyconn = do
, Proxy.proxySelector = Proxy.singleProxySelector $
proxyConnectionRemoteSide proxyconn
, Proxy.proxyConcurrencyConfig = concurrencyconfig
, Proxy.proxyClientProtocolVersion = protocolversion
, Proxy.proxyClientProtocolVersion = connectionProtocolVersion connparams
}
let proxy mrequestmessage = case mrequestmessage of
Just requestmessage -> do
@ -386,9 +384,11 @@ proxyConnection relv connparams workerpool proxyconn = do
-- connection
Left err -> do
liftIO $ hPutStrLn stderr ("protoerrhandler: " ++ show err)
Proxy.closeRemoteSide $ proxyConnectionRemoteSide proxyconn
return ()
Right v -> do
liftIO $ print "protoerrhandler returned"
Proxy.closeRemoteSide $ proxyConnectionRemoteSide proxyconn
cont v
proxydone = return ()
requestcomplete () = return ()