mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

bugfix

Browse source
This commit is contained in:
Joey Hess 2010-10-16 14:58:14 -04:00
parent 5a32804115
commit bfa581a218
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
GitRepo.hs
View file

@ -25,8 +25,8 @@ module GitRepo (
remotes, remotes,
remotesAdd, remotesAdd,
repoRemoteName, repoRemoteName,
inGit, inRepo,
notInGit notInRepo
) where ) where
import Directory import Directory
@ -178,16 +178,16 @@ pipeRead repo params = assertlocal repo $ do
{- Passed a location, recursively scans for all files that {- Passed a location, recursively scans for all files that
- are checked into git at that location. -} - are checked into git at that location. -}
inGit :: Repo -> FilePath -> IO [FilePath] inRepo :: Repo -> FilePath -> IO [FilePath]
inGit repo location = do inRepo repo location = do
s <- pipeRead repo ["ls-files", "--cached", "--exclude-standard"] s <- pipeRead repo ["ls-files", "--cached", "--exclude-standard", location]
return $ lines s return $ lines s
{- Passed a location, recursively scans for all files that are not checked {- Passed a location, recursively scans for all files that are not checked
- into git, and not gitignored. -} - into git, and not gitignored. -}
notInGit :: Repo -> FilePath -> IO [FilePath] notInRepo :: Repo -> FilePath -> IO [FilePath]
notInGit repo location = do notInRepo repo location = do
s <- pipeRead repo ["ls-files", "--others", "--exclude-standard"] s <- pipeRead repo ["ls-files", "--others", "--exclude-standard", location]
return $ lines s return $ lines s
{- Runs git config and populates a repo with its config. -} {- Runs git config and populates a repo with its config. -}