From 6c3cea7699c7c9527dfd2e8111e4adf17dc0f2bd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 22 May 2015 13:50:37 -0400 Subject: [PATCH] need more polymorphism --- Utility/LockFile/Windows.hs | 2 +- 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 fe57ff9eb9..d05a447475 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 2206e05e43..25877d52e2 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