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

fix windows build

Browse source
This commit is contained in:
Joey Hess 2015-05-22 13:44:24 -04:00
parent 1b01322de0
commit 696ed9b3f9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/LockPool/Windows.hs
View file

@ -30,7 +30,7 @@ import Prelude
lockShared :: LockFile -> IO (Maybe LockHandle) lockShared :: LockFile -> IO (Maybe LockHandle)
lockShared file = tryMakeLockHandle lockShared file = tryMakeLockHandle
(P.tryTakeLock P.lockPool file LockShared) (P.tryTakeLock P.lockPool file LockShared)
(F.lockShared mode file) (F.lockShared file)
{- 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.