diff options
| -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 00a966198..b190def64 100644 --- a/Git/Tree.hs +++ b/Git/Tree.hs @@ -256,7 +256,7 @@ inTree :: (GitPath t, GitPath f) => t -> f -> Bool inTree t f = gitPath t == takeDirectory (gitPath f) beneathSubTree :: (GitPath t, GitPath f) => t -> f -> Bool -beneathSubTree t f = prefix `isPrefixOf` gitPath f +beneathSubTree t f = prefix `isPrefixOf` normalise (gitPath f) where tp = gitPath t - prefix = if null tp then tp else addTrailingPathSeparator tp + prefix = if null tp then tp else addTrailingPathSeparator (normalise tp) |