mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

note

Browse source
This commit is contained in:
Joey Hess 2020-07-08 14:13:22 -04:00
parent d08c178f97
commit c1eaf5b930
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Git/LsFiles.hs
View file

@ -138,12 +138,14 @@ staged' ps l repo = guardSafeForLsFiles repo $
type StagedDetails = (RawFilePath, Maybe Sha, Maybe FileMode)
{- Returns details about all files that are staged in the index. -}
{- Returns details about all files that are staged in the index.
-
- Note that, during a conflict, a file will appear in the list
- more than once.
-}
stagedDetails :: [RawFilePath] -> Repo -> IO ([StagedDetails], IO Bool)
stagedDetails = stagedDetails' []
{- Gets details about staged files, including the Sha of their staged
- contents. -}
stagedDetails' :: [CommandParam] -> [RawFilePath] -> Repo -> IO ([StagedDetails], IO Bool)
stagedDetails' ps l repo = guardSafeForLsFiles repo $ do
(ls, cleanup) <- pipeNullSplit' params repo