From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 26 Sep 2022 20:20:56 +0000 (-0400)
Subject: avoid name shadowing warning
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~69^2~31
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=26dea5641ea06757eac4103c5516f8f05f3d6b98;p=git-annex.git

avoid name shadowing warning
---

diff --git a/Logs/Restage.hs b/Logs/Restage.hs
index 4e0f3e5146..4d5a33cfa8 100644
--- a/Logs/Restage.hs
+++ b/Logs/Restage.hs
@@ -45,11 +45,11 @@ streamRestageLog finalizer processor = do
 			Nothing -> noop
 
 calcRestageLog :: t -> ((TopFilePath, InodeCache) -> t -> t) -> Annex t
-calcRestageLog start proc = do
+calcRestageLog start update = do
 	logf <- fromRepo gitAnnexRestageLog
 	calcLogFile (fromRawFilePath logf) start $ \l v -> 
 		case parseRestageLog (decodeBL l) of
-			Just pl -> proc pl v
+			Just pl -> update pl v
 			Nothing -> v
 
 formatRestageLog :: TopFilePath -> InodeCache -> S.ByteString