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

clean

Browse source
This commit is contained in:
Joey Hess 2015-08-04 17:07:45 -04:00
parent 3c971c414e
commit f7d7995172
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/Ssh.hs
View file

@ -287,10 +287,10 @@ sshOptionsTo remote gc g
if null sshopts if null sshopts
then unchanged then unchanged
else do else do
let val = toSshOptionsEnv sshopts
command <- liftIO programPath command <- liftIO programPath
liftIO $ do liftIO $ do
g' <- addGitEnv g sshOptionsEnv val g' <- addGitEnv g sshOptionsEnv
(toSshOptionsEnv sshopts)
addGitEnv g' "GIT_SSH" command addGitEnv g' "GIT_SSH" command
runSshOptions :: [String] -> String -> IO () runSshOptions :: [String] -> String -> IO ()