From c6893038719619dcbc4e640d4a3cc96b4cd24d27 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 5 Dec 2017 13:11:03 -0400
Subject: fix windows build

---
 Annex/Content.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Annex')

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 986f673f6..768b2a9dc 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -170,7 +170,7 @@ inAnnexSafe key = inAnnex' (fromMaybe True) (Just False) go key
 	checkdirect contentfile lockfile =
 		ifM (liftIO $ doesFileExist contentfile)
 			( modifyContent lockfile $ liftIO $
-				lockShared >>= \case
+				lockShared lockfile >>= \case
 					Nothing -> return is_locked
 					Just lockhandle -> do
 						dropLock lockhandle
-- 
cgit v1.2.3