From d14a82f0334f299b055b8a3feefdc164d06ee9f2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 3 Feb 2014 10:20:18 -0400
Subject: fix failing test case on Windows

ensure file being modified is all read before it's opened for write
---
 Remote/Bup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Remote/Bup.hs')

diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index 7395b7428..62af704b2 100644
--- a/Remote/Bup.hs
+++ b/Remote/Bup.hs
@@ -145,7 +145,7 @@ storeEncrypted r buprepo (cipher, enck) k _p =
 retrieve :: BupRepo -> Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex Bool
 retrieve buprepo k _f d _p = do
 	let params = bupParams "join" buprepo [Param $ bupRef k]
-	liftIO $ catchBoolIO $ withFIle d WriteMode $
+	liftIO $ catchBoolIO $ withFile d WriteMode $
 		pipeBup params Nothing . Just
 
 retrieveCheap :: BupRepo -> Key -> FilePath -> Annex Bool
-- 
cgit v1.2.3