From b2a46e18236e7cc8ff864bc4fed3b190efb161e5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Feb 2013 14:12:55 -0400 Subject: make adding modified files work on crippled filesystems --- Git/LsFiles.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'Git') 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' [] -- cgit v1.2.3