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:20:35 -04:00
parent 291ad8f6b2
commit cb6cb61ca1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Annex/Content.hs
View file

@ -204,7 +204,12 @@ lockContentUsing contentlocker key fallback a = withContentLockFile key $ \mlock
alreadylocked = giveup "content is locked" alreadylocked = giveup "content is locked"
failedtolock e = giveup $ "failed to lock content: " ++ show e failedtolock e = giveup $ "failed to lock content: " ++ show e
lock locker mlockfile = tryIO $ locker >>= \case #ifndef mingw32_HOST_OS
lock locker mlockfile =
#else
lock locker _mlockfile =
#endif
tryIO $ locker >>= \case
Nothing -> alreadylocked Nothing -> alreadylocked
Just h -> Just h ->
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS