Have equalWithin return true for same-sign infinities

Consistent with aboutEqual, although I still think it feels weird
elmcraft · Mar 27, 2024 · d795f71 · d795f71
1 parent 4df9c0f
commit d795f71
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Float/Extra.elm b/src/Float/Extra.elm
@@ -360,7 +360,11 @@ aboutEqual a b =
 -}
 equalWithin : Float -> Float -> Float -> Bool
 equalWithin tolerance firstValue secondValue =
-    abs (secondValue - firstValue) <= tolerance
+    if isInfinite firstValue || isInfinite secondValue then
+        firstValue == secondValue
+
+    else
+        abs (secondValue - firstValue) <= tolerance