From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 27 Mar 2023 16:21:40 +0000 (-0400)
Subject: avoid build warning on windows
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~50^2~72
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=e900e3caf3e6d3c98e9c828a19a526374a60ad5e;p=git-annex.git

avoid build warning on windows
---

diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 8485f33ebb..910dc5686e 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -259,12 +259,13 @@ fixLink key file = do
  - to the other location.
  -}
 fixObjectLocation :: Key -> Annex Bool
-fixObjectLocation key = do
 #ifdef mingw32_HOST_OS
+fixObjectLocation _key = do
 	-- Windows does not allow locked files to be renamed, but annex
 	-- links are also not used on Windows.
 	return True
 #else
+fixObjectLocation key = do
 	loc <- calcRepo (gitAnnexLocation key)
 	idealloc <- calcRepo (gitAnnexLocation' (const (pure True)) key)
 	if loc == idealloc