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

use new getConfig

Browse source
This commit is contained in:
Joey Hess 2012-03-22 00:23:15 -04:00
parent 4eb5112681
commit f1398b5583
8 changed files with 16 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/Ssh.hs
View file

@ -15,7 +15,7 @@ import qualified Data.Map as M
import Common.Annex
import Annex.LockPool
import qualified Git
import qualified Git.Config
import Config
import qualified Build.SysConfig as SysConfig
{- Generates parameters to ssh to a given host (or user@host) on a given
@ -47,7 +47,7 @@ sshInfo (host, port) = ifM caching
where
caching = fromMaybe SysConfig.sshconnectioncaching
. Git.configTrue
<$> fromRepo (Git.Config.get "annex.sshcaching" "")
<$> getConfig "annex.sshcaching" ""
cacheParams :: FilePath -> [CommandParam]
cacheParams socketfile =