avoid name shadowing warning

diff --git a/Logs/Restage.hs b/Logs/Restage.hs
index 4e0f3e51467144228da2c2d2ba81f4ecc5afd414..4d5a33cfa8fe604b5eb41415988bad7e13636c8f 100644 (file)
--- 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