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

fix windows build more

Browse source
This commit is contained in:
Joey Hess 2016-03-05 12:32:06 -04:00
parent 0084e0f053
commit ca18baecdb
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. -} - content, a separate LockFile should be used. -}
lockExclusive :: LockFile -> IO (Maybe LockHandle) lockExclusive :: LockFile -> IO (Maybe LockHandle)
lockExclusive file = tryMakeLockHandle P.lockPool file lockExclusive file = tryMakeLockHandle P.lockPool file
(\p f -> P.tryTakeLock f LockExclusive) (\p f -> P.tryTakeLock p f LockExclusive)
(\f -> fmap mk <$> F.lockExclusive f) (\f -> fmap mk <$> F.lockExclusive f)
{- If the initial lock fails, this is a BUSY wait, and does not {- If the initial lock fails, this is a BUSY wait, and does not