diff options
Diffstat (limited to 'Git/LsFiles.hs')
-rw-r--r-- | Git/LsFiles.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index 401ed5562..ca08fe261 100644 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs @@ -9,6 +9,7 @@ module Git.LsFiles ( inRepo, notInRepo, deleted, + modified, staged, stagedNotDeleted, stagedDetails, @@ -46,6 +47,13 @@ deleted l repo = pipeNullSplit params repo where params = [Params "ls-files --deleted -z --"] ++ map File l +{- Returns a list of files in the specified locations that have been + - modified. -} +modified :: [FilePath] -> Repo -> IO ([FilePath], IO Bool) +modified l repo = pipeNullSplit params repo + where + params = [Params "ls-files --modified -z --"] ++ map File l + {- Returns a list of all files that are staged for commit. -} staged :: [FilePath] -> Repo -> IO ([FilePath], IO Bool) staged = staged' [] |