mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid name shadowing warning

Browse source
This commit is contained in:
Joey Hess 2022-09-26 16:20:56 -04:00
parent 7059322a6c
commit 26dea5641e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Logs/Restage.hs
View file

@ -45,11 +45,11 @@ streamRestageLog finalizer processor = do
Nothing -> noop Nothing -> noop
calcRestageLog :: t -> ((TopFilePath, InodeCache) -> t -> t) -> Annex t calcRestageLog :: t -> ((TopFilePath, InodeCache) -> t -> t) -> Annex t
calcRestageLog start proc = do calcRestageLog start update = do
logf <- fromRepo gitAnnexRestageLog logf <- fromRepo gitAnnexRestageLog
calcLogFile (fromRawFilePath logf) start $ \l v -> calcLogFile (fromRawFilePath logf) start $ \l v ->
case parseRestageLog (decodeBL l) of case parseRestageLog (decodeBL l) of
Just pl -> proc pl v Just pl -> update pl v
Nothing -> v Nothing -> v
formatRestageLog :: TopFilePath -> InodeCache -> S.ByteString formatRestageLog :: TopFilePath -> InodeCache -> S.ByteString