From e23721f57925d2fe9724edc7f2de02c852ffafdd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 26 Mar 2024 14:13:59 -0400 Subject: [PATCH] fix build warning A recent change made plumbing the backend through fsck unncessary. Left fsck checking backend and skipping operating on key when it could not find one. Not checking the backend would be a behavior change. For example the command git-annex fsck --key FOO--bar does nothing since FOO is not a known backend. If this were removed it would instead go on and fsck it and warn that no copies exist of the key. That behavior change seems like it would be fine, but I also have no reason to make it. --- Command/Fsck.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Command/Fsck.hs b/Command/Fsck.hs index c10cbe7cd3..3e3de1ea86 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -216,7 +216,7 @@ startKey :: Maybe Remote -> Incremental -> (SeekInput, Key, ActionItem) -> NumCo startKey from inc (si, key, ai) numcopies = Backend.maybeLookupBackendVariety (fromKey keyVariety key) >>= \case Nothing -> stop - Just backend -> runFsck inc si ai key $ + Just _ -> runFsck inc si ai key $ case from of Nothing -> performKey key numcopies Just r -> performRemote key (AssociatedFile Nothing) numcopies r