diff options
| -rw-r--r-- | Utility/LockPool/Windows.hs | 2 |
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. |