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

remove duplicate code

Browse source
This commit is contained in:
Joey Hess 2024-07-28 09:35:09 -04:00
parent 0cdd418407
commit 8ec174408e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Annex/Cluster.hs
View file

@ -41,11 +41,6 @@ proxyCluster clusteruuid proxydone servermode clientside protoerrhandler = do
getClientProtocolVersion (fromClusterUUID clusteruuid) clientside getClientProtocolVersion (fromClusterUUID clusteruuid) clientside
withclientversion (protoerrhandler noop) withclientversion (protoerrhandler noop)
where where
proxymethods = ProxyMethods
{ removedContent = \u k -> logChange k u InfoMissing
, addedContent = \u k -> logChange k u InfoPresent
}
withclientversion (Just (clientmaxversion, othermsg)) = do withclientversion (Just (clientmaxversion, othermsg)) = do
-- The protocol versions supported by the nodes are not -- The protocol versions supported by the nodes are not
-- known at this point, and would be too expensive to -- known at this point, and would be too expensive to
@ -68,7 +63,7 @@ proxyCluster clusteruuid proxydone servermode clientside protoerrhandler = do
concurrencyconfig <- getConcurrencyConfig concurrencyconfig <- getConcurrencyConfig
proxystate <- liftIO mkProxyState proxystate <- liftIO mkProxyState
let proxyparams = ProxyParams let proxyparams = ProxyParams
{ proxyMethods = proxymethods { proxyMethods = mkProxyMethods
, proxyState = proxystate , proxyState = proxystate
, proxyServerMode = servermode , proxyServerMode = servermode
, proxyClientSide = clientside , proxyClientSide = clientside