From e7ab0b404e3169d998a1c06d11600f6327193abe Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 4 May 2016 12:38:37 -0400
Subject: more windows path fixes

Let git-style filepaths be looked up in the removeset, even though
windows-style filepaths are probably being fed into it.
---
 Git/Tree.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Git')

diff --git a/Git/Tree.hs b/Git/Tree.hs
index b190def64..cfd5b910d 100644
--- a/Git/Tree.hs
+++ b/Git/Tree.hs
@@ -202,8 +202,8 @@ adjustTree adjusttreeitem addtreeitems removefiles r repo =
 		addunderhere' <- liftIO $ mapM (recordSubTree h) addunderhere
 		return (addunderhere'++l')
 
-	removeset = S.fromList removefiles
-	removed (TreeBlob f _ _) = S.member f removeset
+	removeset = S.fromList $ map (normalise . gitPath) removefiles
+	removed (TreeBlob f _ _) = S.member (normalise (gitPath f)) removeset
 	removed _ = False
 
 {- Assumes the list is ordered, with tree objects coming right before their
-- 
cgit v1.2.3