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

avoid build warning on windows

Browse source
This commit is contained in:
Joey Hess 2025-01-24 11:33:50 -04:00
parent 21731b7d3a
commit f0c206cea6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/LockFile/Windows.hs
View file

@ -75,9 +75,9 @@ openLock sharemode f = do
return $ if h == iNVALID_HANDLE_VALUE return $ if h == iNVALID_HANDLE_VALUE
then Nothing then Nothing
else Just h else Just h
#endif
where where
security_attributes = maybePtr Nothing security_attributes = maybePtr Nothing
#endif
dropLock :: LockHandle -> IO () dropLock :: LockHandle -> IO ()
dropLock = closeHandle dropLock = closeHandle