diff options
Diffstat (limited to 'Utility/LockFile/Windows.hs')
| -rw-r--r-- | Utility/LockFile/Windows.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/LockFile/Windows.hs b/Utility/LockFile/Windows.hs index fe57ff9eb..d05a44747 100644 --- a/Utility/LockFile/Windows.hs +++ b/Utility/LockFile/Windows.hs @@ -65,7 +65,7 @@ dropLock = closeHandle {- 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. -} -waitToLock :: IO (Maybe LockHandle) -> IO LockHandle +waitToLock :: IO (Maybe lockhandle) -> IO lockhandle waitToLock locker = takelock where takelock = go =<< locker |