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

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

diff --git a/Annex/Content.hs b/Annex/Content.hs
index c19fc29c03..28ca995445 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -200,7 +200,8 @@ lockContent key a = do
 		modifyContent lockfile $
 			void $ liftIO $ tryIO $
 				writeFile lockfile ""
-		maybe alreadylocked (return . Just) =<< lockExclusive lockfile
+		maybe alreadylocked (return . Just)
+			=<< liftIO (lockExclusive lockfile)
 	-- never reached; windows always uses a separate lock file
 	lock _ Nothing = return Nothing
 	unlock mlockfile mlockhandle = do