summaryrefslogtreecommitdiff
path: root/Annex/Ssh.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Annex/Ssh.hs')
-rw-r--r--Annex/Ssh.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs
index 54c54d79f..cd28d1fc0 100644
--- a/Annex/Ssh.hs
+++ b/Annex/Ssh.hs
@@ -31,7 +31,7 @@ import qualified Annex
import qualified Git
import qualified Git.Url
import Config
-import Config.Files
+import Annex.Path
import Utility.Env
import Types.CleanupActions
import Annex.Index (addGitEnv)
@@ -273,7 +273,7 @@ sshOptionsTo remote gc g
case msockfile of
Nothing -> return g
Just sockfile -> do
- command <- liftIO readProgramFile
+ command <- liftIO programPath
prepSocket sockfile
let val = toSshOptionsEnv $ concat
[ sshConnectionCachingParams sockfile