add checks that location log files are committed
currently failing for move --to
This commit is contained in:
parent
3a844b1f3c
commit
a8ce30401d
3 changed files with 19 additions and 0 deletions
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue