diff --git a/src/Syntax/RangeMap.hs b/src/Syntax/RangeMap.hs index fff530516..3d618c6c0 100644 --- a/src/Syntax/RangeMap.hs +++ b/src/Syntax/RangeMap.hs @@ -247,7 +247,7 @@ rangeMapLookup r (RM rm) rangeMapFindIn :: Bool -> Range -> RangeMap -> [(Range, RangeInfo)] rangeMapFindIn forInlay rng (RM rm) = mergeImplicits forInlay {-for inlay -} $ - filter (\(rngx, info) -> rangeStart rngx >= start || rangeEnd rngx <= end) rm + filter (\(rngx, info) -> rangeStart rngx >= start && rangeEnd rngx <= end) rm where start = rangeStart rng end = rangeEnd rng