avoid build warning on windows

diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 8485f33ebb1ad9c4b6310fb4db5d37eb108d0c02..910dc5686e834995986441f120cd9b17472f6a55 100644 (file)
--- 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