mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid build warning on windows

Browse source
This commit is contained in:
Joey Hess 2023-03-27 12:21:40 -04:00
parent cb6cb61ca1
commit e900e3caf3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Fsck.hs
View file

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