avoid build warning on windows

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

View file

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