summaryrefslogtreecommitdiff
path: root/Utility/LockFile
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/LockFile
parent448e28fd4b960c648d203cb3b060dee9d401ae86 (diff)
need more polymorphism
Diffstat (limited to 'Utility/LockFile')
-rw-r--r--Utility/LockFile/Windows.hs2
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