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

unused: Improved memory use significantly when there are a lot of differences between branches.

Browse source 
Argh, didn't need an accumulator here!

I think I use accumulators a lot more than I need to when recusively
processing lists..

This commit was sponsored by Jeff Goeke-Smith on Patreon.
This commit is contained in:
Joey Hess 2017-01-31 19:42:00 -04:00
parent 062286135c
commit ed60f60e9b
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
4 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Git/DiffTree.hs
View file

@ -101,11 +101,11 @@ getdiff command params repo = do
{- Parses --raw output used by diff-tree and git-log. -}
parseDiffRaw :: [String] -> [DiffTreeItem]
parseDiffRaw l = go l []
parseDiffRaw l = go l
where
go [] c = c
go (info:f:rest) c = go rest (mk info f : c)
go (s:[]) _ = error $ "diff-tree parse error near \"" ++ s ++ "\""
go [] = []
go (info:f:rest) = mk info f : go rest
go (s:[]) = error $ "diff-tree parse error near \"" ++ s ++ "\""
mk info f = DiffTreeItem
{ srcmode = readmode srcm