add checks that location log files are committed

currently failing for move --to
This commit is contained in:
Joey Hess 2011-01-11 16:00:40 -04:00
parent 3a844b1f3c
commit a8ce30401d
3 changed files with 19 additions and 0 deletions

View file

@ -38,6 +38,7 @@ module GitRepo (
inRepo,
notInRepo,
stagedFiles,
changedUnstagedFiles,
checkAttr,
decodeGitFile,
encodeGitFile,
@ -249,6 +250,11 @@ stagedFiles repo l = pipeNullSplit repo $
["diff", "--cached", "--name-only", "--diff-filter=ACMRT", "-z",
"--"] ++ l
{- Returns a list of files that have unstaged changes. -}
changedUnstagedFiles :: Repo -> [FilePath] -> IO [FilePath]
changedUnstagedFiles repo l = pipeNullSplit repo $
["diff", "--name-only", "-z", "--"] ++ l
{- Returns a list of the files in the specified locations that are staged
- for commit, and whose type has changed. -}
typeChangedStagedFiles :: Repo -> [FilePath] -> IO [FilePath]