diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-29 11:55:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-29 11:55:16 -0400 |
| commit | 06a1f5f74286795708b219de8fb080077ff134a7 (patch) | |
| tree | cfdb751f3ae77c307e8da1268ff55b9d887212e4 /Command/Unused.hs | |
| parent | af45d422248846869babdbc3eae2765d94ea9f20 (diff) | |
factor out file list stuff from GitRepo
GitRepo is getting too large an interface; these all fit nicely into a
submodule.
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 5744f84fd..c0a347179 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -23,6 +23,7 @@ import Utility import LocationLog import qualified Annex import qualified GitRepo as Git +import qualified GitRepo.LsFiles as LsFiles import qualified Backend import qualified Remote @@ -175,7 +176,7 @@ exclude smaller larger = S.toList $ remove larger $ S.fromList smaller getKeysReferenced :: Annex [Key] getKeysReferenced = do g <- Annex.gitRepo - files <- liftIO $ Git.inRepo g [Git.workTree g] + files <- liftIO $ LsFiles.inRepo g [Git.workTree g] keypairs <- mapM Backend.lookupFile files return $ map fst $ catMaybes keypairs |