fix of issue #1

aldrikfr · Nov 21, 2019 · 3e62cff · 3e62cff
1 parent bd07154
commit 3e62cff
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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 ()