avoid build warning on windows
This commit is contained in:
parent
21731b7d3a
commit
f0c206cea6
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue