Simplify the recursion cases.

robrix · Jul 9, 2020 · a52a0cd · a52a0cd
1 parent df01f31
commit a52a0cd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Data/IntervalSet.hs b/src/Data/IntervalSet.hs
@@ -63,7 +63,7 @@ delete deleted (IntervalSet t) = IntervalSet $ l F.>< go r
   go s = case F.viewl s of
     F.EmptyL -> F.empty
     h F.:< t
-      | sup deleted < inf h         -> s
-      | h `isSubintervalOf` deleted -> go t
-      | otherwise                   -> h `intersection` deleted F.<| go t
+      | sup deleted < inf h -> s
+      | sup deleted < sup h -> h `intersection` deleted F.<| go t
+      | otherwise           -> go t
   before i = inf deleted <= sup i