From 448e28fd4b960c648d203cb3b060dee9d401ae86 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 22 May 2015 13:44:24 -0400
Subject: fix windows build

---
 Utility/LockPool/Windows.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Utility/LockPool/Windows.hs')

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.
-- 
cgit v1.2.3