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

better parameter name

Browse source
This commit is contained in:
Joey Hess 2012-09-19 17:10:13 -04:00
parent 3d98326763
commit 77938a7d62
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Utility/Rsync.hs
View file

@ -101,10 +101,10 @@ rsyncUrlIsPath s
parseRsyncProgress :: String -> (Maybe Integer, String) parseRsyncProgress :: String -> (Maybe Integer, String)
parseRsyncProgress = go [] . reverse . progresschunks parseRsyncProgress = go [] . reverse . progresschunks
where where
go prev [] = (Nothing, prev) go remainder [] = (Nothing, remainder)
go prev (x:xs) = case parsebytes (findbytesstart x) of go remainder (x:xs) = case parsebytes (findbytesstart x) of
Nothing -> go (delim:x++prev) xs Nothing -> go (delim:x++remainder) xs
Just b -> (Just b, prev) Just b -> (Just b, remainder)
delim = '\r' delim = '\r'
{- Find chunks that each start with delim. {- Find chunks that each start with delim.