diff options
author | 2013-08-22 10:20:03 -0400 | |
---|---|---|
committer | 2013-08-22 10:20:03 -0400 | |
commit | ffb0bf0ed51c3454fafdf7dcbc074910f5709942 (patch) | |
tree | abb222ae52022457d0f37311813359b795764c6e /Git/LsFiles.hs | |
parent | 40e63f87c409d47686480a7ddf8b5034d1d7ddcd (diff) |
unused: Pay attention to symlinks that are not yet staged in the index.
Diffstat (limited to 'Git/LsFiles.hs')
-rw-r--r-- | Git/LsFiles.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index f4e467215..e2e29ea36 100644 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs @@ -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) |