From 26dea5641ea06757eac4103c5516f8f05f3d6b98 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 26 Sep 2022 16:20:56 -0400 Subject: [PATCH] avoid name shadowing warning --- Logs/Restage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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