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
Backend.hs
View file

@ -18,7 +18,7 @@ module Backend (
import System.Posix.Files
import Common.Annex
import qualified Git.Config
import Config
import qualified Annex
import Annex.CheckAttr
import Types.Key
@ -46,7 +46,7 @@ orderedList = do
l' <- (lookupBackendName name :) <$> standard
Annex.changeState $ \s -> s { Annex.backends = l' }
return l'
standard = fromRepo $ parseBackendList . Git.Config.get "annex.backends" ""
standard = parseBackendList <$> getConfig "annex.backends" ""
parseBackendList [] = list
parseBackendList s = map lookupBackendName $ words s