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

refactoring

Browse source
This commit is contained in:
Joey Hess 2024-06-11 10:20:11 -04:00
parent 501d65eeab
commit 92c83a417f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 32 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Command/P2PStdIO.hs
View file

@ -62,13 +62,16 @@ performProxy clientuuid servermode remote = do
clientside <- ClientSide
<$> liftIO (mkRunState $ Serving clientuuid Nothing)
<*> pure (stdioP2PConnection Nothing)
getClientProtocolVersion clienterrhandler remote clientside $ \case
Nothing -> done
Just (clientmaxversion, othermsg) ->
connectremote clientmaxversion $ \remoteside ->
proxy clienterrhandler done servermode
clientside remoteside othermsg
getClientProtocolVersion remote clientside
(withclientversion clientside)
clienterrhandler
where
withclientversion clientside (Just (clientmaxversion, othermsg)) =
connectremote clientmaxversion $ \remoteside ->
proxy done servermode clientside remoteside
othermsg clienterrhandler
withclientversion _ Nothing = done
-- FIXME: Support special remotes and non-ssh git remotes.
connectremote clientmaxversion cont =
openP2PSshConnection' remote clientmaxversion >>= \case