make adding modified files work on crippled filesystems

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' []