diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-05-22 13:50:37 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-22 13:50:37 -0400 |
| commit | c05894dad2bc586183341027c24c44561a281783 (patch) | |
| tree | a7fd7820963cc00fc682a39cc11eba73d56f2d24 | |
| parent | 448e28fd4b960c648d203cb3b060dee9d401ae86 (diff) | |
need more polymorphism
| -rw-r--r-- | Utility/LockFile/Windows.hs | 2 | ||||
| -rw-r--r-- | Utility/LockPool/Windows.hs | 2 |
2 files changed, 2 insertions, 2 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 diff --git a/Utility/LockPool/Windows.hs b/Utility/LockPool/Windows.hs index 2206e05e4..25877d52e 100644 --- a/Utility/LockPool/Windows.hs +++ b/Utility/LockPool/Windows.hs @@ -45,5 +45,5 @@ lockExclusive file = tryMakeLockHandle {- 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 = F.waitToLock |