intervals 0.2.0 → 0.2.0.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• Numeric/Interval.hs +2/−2
• intervals.cabal +1/−1

@@ -190,7 +190,7 @@ divPositive :: (Fractional a, Ord a) => Interval a -> a -> Interval a  divPositive x@(I a b) y     | a == 0 && b == 0 = x-    -- | b < 0 || isNegativeZero b = negInfinity `I` ( b / y)+    -- b < 0 || isNegativeZero b = negInfinity `I` ( b / y)     | b < 0 = negInfinity `I` ( b / y)     | a < 0 = whole      | otherwise = (a / y) `I` posInfinity@@ -199,7 +199,7 @@ divNegative :: (Fractional a, Ord a) => Interval a -> a -> Interval a divNegative x@(I a b) y     | a == 0 && b == 0 = - x -- flip negative zeros-    -- | b < 0 || isNegativeZero b = (b / y) `I` posInfinity+    -- b < 0 || isNegativeZero b = (b / y) `I` posInfinity     | b < 0 = (b / y) `I` posInfinity     | a < 0 = whole     | otherwise = negInfinity `I` (a / y)

@@ -1,5 +1,5 @@ Name:              intervals-Version:           0.2.0+Version:           0.2.0.1 Synopsis:          Interval Arithmetic Description:     A 'Numeric.Interval.Interval' is a closed, convex set of floating point values.