From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 26 Mar 2024 18:13:59 +0000 (-0400)
Subject: fix build warning
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~25^2~45
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=e23721f57925d2fe9724edc7f2de02c852ffafdd;p=git-annex.git

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.
---

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