summaryrefslogtreecommitdiff
path: root/Utility/LockPool
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-05-22 13:50:37 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-05-22 13:50:37 -0400
commitc05894dad2bc586183341027c24c44561a281783 (patch)
treea7fd7820963cc00fc682a39cc11eba73d56f2d24 /Utility/LockPool
parent448e28fd4b960c648d203cb3b060dee9d401ae86 (diff)
need more polymorphism
Diffstat (limited to 'Utility/LockPool')
-rw-r--r--Utility/LockPool/Windows.hs2
1 files changed, 1 insertions, 1 deletions
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