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 /Seek.hs | |
parent | 25b2cc4148e4cc8f7435cdbcf4b124cc317c1305 (diff) |
split out two more Git modules
Diffstat (limited to 'Seek.hs')
-rw-r--r-- | Seek.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -18,6 +18,7 @@ import Backend import qualified Annex import qualified Git import qualified Git.LsFiles as LsFiles +import qualified Git.CheckAttr import qualified Limit seekHelper :: ([FilePath] -> Git.Repo -> IO [FilePath]) -> [FilePath] -> Annex [FilePath] @@ -31,7 +32,7 @@ withFilesInGit a params = prepFiltered a $ seekHelper LsFiles.inRepo params withAttrFilesInGit :: String -> ((FilePath, String) -> CommandStart) -> CommandSeek withAttrFilesInGit attr a params = do files <- seekHelper LsFiles.inRepo params - prepFilteredGen a fst $ inRepo $ Git.checkAttr attr files + prepFilteredGen a fst $ inRepo $ Git.CheckAttr.lookup attr files withNumCopies :: (Maybe Int -> FilePath -> CommandStart) -> CommandSeek withNumCopies a params = withAttrFilesInGit "annex.numcopies" go params |