From 77938a7d621c47c2da4a793dbcee360825c9aea7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Sep 2012 17:10:13 -0400 Subject: [PATCH] better parameter name --- Utility/Rsync.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Utility/Rsync.hs b/Utility/Rsync.hs index a533b88ddc..0fe4a89862 100644 --- a/Utility/Rsync.hs +++ b/Utility/Rsync.hs @@ -101,10 +101,10 @@ rsyncUrlIsPath s parseRsyncProgress :: String -> (Maybe Integer, String) parseRsyncProgress = go [] . reverse . progresschunks where - go prev [] = (Nothing, prev) - go prev (x:xs) = case parsebytes (findbytesstart x) of - Nothing -> go (delim:x++prev) xs - Just b -> (Just b, prev) + go remainder [] = (Nothing, remainder) + go remainder (x:xs) = case parsebytes (findbytesstart x) of + Nothing -> go (delim:x++remainder) xs + Just b -> (Just b, remainder) delim = '\r' {- Find chunks that each start with delim.