diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-29 23:43:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-29 23:48:57 -0400 |
| commit | 7ff89ccfee13dcfe89cbdef83454e880dabd7186 (patch) | |
| tree | 953858f36ccd021832d286c6a5915e44a05081ce /Git/LsFiles.hs | |
| parent | 949ef94d5e5583e55d6ba9797cf71177b252173d (diff) | |
convert all git read/write functions to use ByteStrings
This yields a second or so speedup in unused, find, etc. Seems that even
when the ByteString is immediately split and then converted to Strings,
it's faster.
I may try to push ByteStrings out into more of git-annex gradually,
although I suspect most of the time-critical parts are already covered
now, and many of the rest rely on libraries that only support Strings.
Diffstat (limited to 'Git/LsFiles.hs')
| -rw-r--r-- | Git/LsFiles.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index c778e5d69..28e007a4d 100644 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs @@ -20,13 +20,11 @@ import Utility.SafeCommand {- Scans for files that are checked into git at the specified locations. -} inRepo :: Repo -> [FilePath] -> IO [FilePath] -inRepo repo l = pipeNullSplit repo $ - Params "ls-files --cached -z --" : map File l +inRepo repo l = pipeNullSplit repo $ Params "ls-files --cached -z --" : map File l {- Scans for files at the specified locations that are not checked into git. -} notInRepo :: Repo -> Bool -> [FilePath] -> IO [FilePath] -notInRepo repo include_ignored l = - pipeNullSplit repo $ +notInRepo repo include_ignored l = pipeNullSplit repo $ [Params "ls-files --others"] ++ exclude ++ [Params "-z --"] ++ map File l where |