@@ -1034,10 +1034,14 @@ dropPrefix roots paths =
1035 Just paths
1035 Just paths
1038+ dropPrefix rs paths
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