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

need more polymorphism

Browse source
This commit is contained in:
Joey Hess 2015-05-22 13:50:37 -04:00
parent 696ed9b3f9
commit 6c3cea7699
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/LockFile/Windows.hs
View file

@ -65,7 +65,7 @@ dropLock = closeHandle
{- 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
- guarentee FIFO order of waiters. In other news, Windows is a POS. -} - guarentee FIFO order of waiters. In other news, Windows is a POS. -}
waitToLock :: IO (Maybe LockHandle) -> IO LockHandle waitToLock :: IO (Maybe lockhandle) -> IO lockhandle
waitToLock locker = takelock waitToLock locker = takelock
where where
takelock = go =<< locker takelock = go =<< locker

2
Utility/LockPool/Windows.hs
View file

@ -45,5 +45,5 @@ lockExclusive file = tryMakeLockHandle
{- 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
- guarentee FIFO order of waiters. In other news, Windows is a POS. -} - guarentee FIFO order of waiters. In other news, Windows is a POS. -}
waitToLock :: IO (Maybe LockHandle) -> IO LockHandle waitToLock :: IO (Maybe lockhandle) -> IO lockhandle
waitToLock = F.waitToLock waitToLock = F.waitToLock