From e900e3caf3e6d3c98e9c828a19a526374a60ad5e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 27 Mar 2023 12:21:40 -0400 Subject: [PATCH] avoid build warning on windows --- Command/Fsck.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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