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

fix build on windows

Browse source
This commit is contained in:
Joey Hess 2020-11-13 13:34:28 -04:00
parent 81f801c3b4
commit ed7afabdb1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/LockFile/Windows.hs
View file

@ -27,7 +27,7 @@ type LockHandle = HANDLE
{- Tries to lock a file with a shared lock, which allows other processes to {- Tries to lock a file with a shared lock, which allows other processes to
- also lock it shared. Fails if the file is exclusively locked. -} - also lock it shared. Fails if the file is exclusively locked. -}
lockShared :: LockFile -> IO (Maybe LockHandle) lockShared :: LockFile -> IO (Maybe LockHandle)
lockShared = openLock fILE_SHARE_READ . fromRawFilePath lockShared = openLock fILE_SHARE_READ
{- Tries to take an exclusive lock on a file. Fails if another process has {- Tries to take an exclusive lock on a file. Fails if another process has
- a shared or exclusive lock. - a shared or exclusive lock.
@ -36,7 +36,7 @@ lockShared = openLock fILE_SHARE_READ . fromRawFilePath
- read or write by any other process. So for advisory locking of a file's - read or write by any other process. So for advisory locking of a file's
- content, a separate LockFile should be used. -} - content, a separate LockFile should be used. -}
lockExclusive :: LockFile -> IO (Maybe LockHandle) lockExclusive :: LockFile -> IO (Maybe LockHandle)
lockExclusive = openLock fILE_SHARE_NONE . fromRawFilePath lockExclusive = openLock fILE_SHARE_NONE
{- Windows considers just opening a file enough to lock it. This will {- Windows considers just opening a file enough to lock it. This will
- create the LockFile if it does not already exist. - create the LockFile if it does not already exist.