27 lines
754 B
Haskell
27 lines
754 B
Haskell
{- proxying
|
|
-
|
|
- Copyright 2024 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Annex.Proxy where
|
|
|
|
import Annex.Common
|
|
import P2P.Proxy
|
|
import P2P.Protocol
|
|
import P2P.IO
|
|
import qualified Remote
|
|
import Remote.Helper.Ssh (openP2PShellConnection', closeP2PShellConnection)
|
|
|
|
-- FIXME: Support special remotes.
|
|
proxySshRemoteSide :: ProtocolVersion -> Remote -> Annex RemoteSide
|
|
proxySshRemoteSide clientmaxversion remote = mkRemoteSide (Remote.uuid remote) $
|
|
openP2PShellConnection' remote clientmaxversion >>= \case
|
|
Just conn@(OpenConnection (remoterunst, remoteconn, _)) ->
|
|
return $ Just
|
|
( remoterunst
|
|
, remoteconn
|
|
, void $ liftIO $ closeP2PShellConnection conn
|
|
)
|
|
_ -> return Nothing
|