make adding modified files work on crippled filesystems
This commit is contained in:
parent
c2b8db3e69
commit
52902c0945
3 changed files with 18 additions and 2 deletions
|
@ -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' []
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue