diff options
Diffstat (limited to 'Remote/Bup.hs')
-rw-r--r-- | Remote/Bup.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 5594bac9f..3a2d67bc8 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -212,11 +212,11 @@ storeBupUUID u buprepo = do v = fromUUID u onBupRemote :: Git.Repo -> (FilePath -> [CommandParam] -> IO a) -> FilePath -> [CommandParam] -> Annex a -onBupRemote r a command params = do +onBupRemote r runner command params = do c <- Annex.getRemoteGitConfig r - sshparams <- Ssh.toRepo NoConsumeStdin r c [Param $ - "cd " ++ dir ++ " && " ++ unwords (command : toCommand params)] - liftIO $ a "ssh" sshparams + let remotecmd = "cd " ++ dir ++ " && " ++ unwords (command : toCommand params) + (sshcmd, sshparams) <- Ssh.toRepo NoConsumeStdin r c remotecmd + liftIO $ runner sshcmd sshparams where path = Git.repoPath r base = fromMaybe path (stripPrefix "/~/" path) |