diff --git a/src/range.ml b/src/range.ml index 08c7760..5523477 100644 --- a/src/range.ml +++ b/src/range.ml @@ -81,10 +81,7 @@ let equal a b = match (a, b) with | Natural ra, Natural rb -> ra.start = rb.start && ra.stop = rb.stop - | Modified _, Modified _ -> - List.equal Int.( = ) (to_list a) (to_list b) - | _ -> - false + | _ -> List.equal Int.( = ) (to_list a) (to_list b) let rec iter_loop r f n = if n > r.stop then ()