summaryrefslogtreecommitdiff
path: root/Utility/LockPool
diff options
context:
space:
mode:
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 2537863e2..2206e05e4 100644
--- a/Utility/LockPool/Windows.hs
+++ b/Utility/LockPool/Windows.hs
@@ -30,7 +30,7 @@ import Prelude
lockShared :: LockFile -> IO (Maybe LockHandle)
lockShared file = tryMakeLockHandle
(P.tryTakeLock P.lockPool file LockShared)
- (F.lockShared mode file)
+ (F.lockShared file)
{- Tries to take an exclusive lock on a file. Fails if another process has
- a shared or exclusive lock.