From f9334586d24540560677f26150d30947226a719c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 5 Jun 2014 15:43:12 -0400
Subject: fixed getting files from bare repos on windows

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

(limited to 'Annex/Content.hs')

diff --git a/Annex/Content.hs b/Annex/Content.hs
index f2d6e3249..aaae595aa 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -124,7 +124,7 @@ inAnnexSafe key = inAnnex' (fromMaybe False) (Just False) go key
 			Nothing -> is_unlocked
 	check def Nothing = return def
 #else
-	checkindirect f = ifM (liftIO $ doesFileExist f)
+	checkindirect f = liftIO $ ifM (doesFileExist f)
 		( do
 			v <- lockShared f
 			case v of
-- 
cgit v1.2.3