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 2016-03-03 13:08:47 -04:00
parent aa24e4f9a2
commit 6237bffae5
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/LockPool/Windows.hs
View file

@ -34,7 +34,7 @@ lockShared file = tryMakeLockHandle P.lockPool file
- content, a separate LockFile should be used. -}
lockExclusive :: LockFile -> IO (Maybe LockHandle)
lockExclusive file = tryMakeLockHandle P.lockPool file
(\p -> P.tryTakeLock f LockExclusive)
(\p f -> P.tryTakeLock f LockExclusive)
(\f -> fmap mk <$> F.lockExclusive f)
{- If the initial lock fails, this is a BUSY wait, and does not