diff options
Diffstat (limited to 'Remote/Git.hs')
-rw-r--r-- | Remote/Git.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 63cfdeae9..328f64217 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -758,8 +758,8 @@ mkDeferredUUIDCheck r u gc -- Runs a P2P Proto action on a remote when it supports that, -- otherwise the fallback action. -runSsh :: Remote -> Ssh.P2PSshConnectionPool -> P2P.Proto a -> Annex a -> Annex a -runSsh r connpool proto fallback = +runSsh :: Remote -> Ssh.P2PSshConnectionPool -> Annex a -> P2P.Proto a -> Annex a +runSsh r connpool fallback proto = Ssh.getP2PSshConnection r connpool >>= maybe fallback go where go c = do |