diff options
Diffstat (limited to 'Backend.hs')
-rw-r--r-- | Backend.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Backend.hs b/Backend.hs index 693e1371b..e1d0e0a68 100644 --- a/Backend.hs +++ b/Backend.hs @@ -146,5 +146,7 @@ lookupFile file = do -} chooseBackends :: [FilePath] -> Annex [(FilePath, Maybe Backend)] chooseBackends fs = do - -- TODO - return $ map (\f -> (f, Nothing)) fs + g <- Annex.gitRepo + bs <- Annex.supportedBackends + pairs <- liftIO $ Git.checkAttr g "git-annex-backend" fs + return $ map (\(f,b) -> (f, maybeLookupBackendName bs b)) pairs |