diff options
| -rw-r--r-- | Utility/Rsync.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Utility/Rsync.hs b/Utility/Rsync.hs index a533b88dd..0fe4a8986 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. |