diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-13 15:22:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-13 15:24:23 -0400 |
| commit | 9db8ec210f8491de78cd7e83b94c50ead8049e72 (patch) | |
| tree | 539d2a49f1599fdd4855570d046f710809062a8e /Backend.hs | |
| parent | 25b2cc4148e4cc8f7435cdbcf4b124cc317c1305 (diff) | |
split out two more Git modules
Diffstat (limited to 'Backend.hs')
| -rw-r--r-- | Backend.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Backend.hs b/Backend.hs index c7cb57440..38f0629f4 100644 --- a/Backend.hs +++ b/Backend.hs @@ -22,6 +22,7 @@ import System.Posix.Files import Common.Annex import qualified Git import qualified Git.Config +import qualified Git.CheckAttr import qualified Annex import Types.Key import qualified Types.Backend as B @@ -103,7 +104,7 @@ chooseBackends :: [FilePath] -> Annex [BackendFile] chooseBackends fs = Annex.getState Annex.forcebackend >>= go where go Nothing = do - pairs <- inRepo $ Git.checkAttr "annex.backend" fs + pairs <- inRepo $ Git.CheckAttr.lookup "annex.backend" fs return $ map (\(f,b) -> (maybeLookupBackendName b, f)) pairs go (Just _) = do l <- orderedList |