From a16a6979515886f2496c5204b886dc76748a3c82 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 9 Jul 2013 16:25:15 -0400
Subject: fix build on windows

---
 Remote/Git.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 1e106f2e5..b1f83b572 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -272,7 +272,7 @@ keyUrls r key = map tourl locs
 #ifndef __WINDOWS__
 	locs = annexLocations key
 #else
-	locs = replace "\\" "/" $ annexLocations key
+	locs = map (replace "\\" "/") (annexLocations key)
 #endif
 
 dropKey :: Remote -> Key -> Annex Bool
-- 
cgit v1.2.3