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

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

diff --git a/Utility/LockPool/Windows.hs b/Utility/LockPool/Windows.hs
index 2537863e24..2206e05e43 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.