diff options
Diffstat (limited to 'Git/Tree.hs')
| -rw-r--r-- | Git/Tree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |