on master help sign in
drop . when trying to determine if directory prefixes match
5365590Evan Czaplicki
builder/src/Build.hs+6−2
@@ -1034,10 +1034,14 @@ dropPrefix roots paths =
1034 [] ->
1034 [] ->
1035 Just paths
1035 Just paths
1036
1036
1037+ ".":rs ->
1038+ dropPrefix rs paths
1039+
1037 r:rs ->
1040 r:rs ->
1038 case paths of
1041 case paths of
1039− [] -> Nothing
1042+ [] -> Nothing
1043+ ".":ps -> dropPrefix roots ps
1040− p:ps -> if r == p then dropPrefix rs ps else Nothing
1044+ p:ps -> if r == p then dropPrefix rs ps else Nothing
1041
1045
1042
1046
1043
1047