make adding modified files work on crippled filesystems

This commit is contained in:
Joey Hess 2013-02-20 14:12:55 -04:00
parent c2b8db3e69
commit 52902c0945
3 changed files with 18 additions and 2 deletions

View file

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