unused: Pay attention to symlinks that are not yet staged in the index.
This commit is contained in:
parent
d603f536bd
commit
6fd2935a5a
3 changed files with 8 additions and 1 deletions
|
@ -8,6 +8,7 @@
|
|||
module Git.LsFiles (
|
||||
inRepo,
|
||||
notInRepo,
|
||||
allFiles,
|
||||
deleted,
|
||||
modified,
|
||||
staged,
|
||||
|
@ -41,6 +42,11 @@ notInRepo include_ignored l repo = pipeNullSplit params repo
|
|||
| include_ignored = []
|
||||
| otherwise = [Param "--exclude-standard"]
|
||||
|
||||
{- Finds all files in the specified locations, whether checked into git or
|
||||
- not. -}
|
||||
allFiles :: [FilePath] -> Repo -> IO ([FilePath], IO Bool)
|
||||
allFiles l = pipeNullSplit $ Params "ls-files --cached --others -z --" : map File l
|
||||
|
||||
{- Returns a list of files in the specified locations that have been
|
||||
- deleted. -}
|
||||
deleted :: [FilePath] -> Repo -> IO ([FilePath], IO Bool)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue