ieee 0.1 → 0.2

raw patch · 2 files changed

+8/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

Data/AEq.hs +7/−3
ieee.cabal +1/−1

Data/AEq.hs view

@@ -12,7 +12,6 @@     where  import Data.Int-import Data.Maybe    ( fromMaybe ) import Data.Word import Data.Complex import Numeric.IEEE@@ -120,8 +119,13 @@     (~==) xs ys = and $ zipWith (~==) xs ys  instance (AEq a) => AEq (Maybe a) where-    (===) x y = fromMaybe True $ do x >>= \x' -> y >>= \y' -> return ((===) x' y')-    (~==) x y = fromMaybe True $ do x >>= \x' -> y >>= \y' -> return ((~==) x' y')+    (===) Nothing  Nothing  = True+    (===) (Just x) (Just y) = (===) x y+    (===) _ _ = False+    +    (~==) Nothing  Nothing  = True+    (~==) (Just x) (Just y) = (~==) x y+    (~==) _ _ = False      instance (AEq a, AEq b) => AEq (Either a b) where     (===) (Left a1)  (Left a2)  = (===) a1 a2

ieee.cabal view

@@ -1,5 +1,5 @@ name:            ieee-version:         0.1+version:         0.2 homepage:        http://stat.stanford.edu/~patperry/code/ieee synopsis:        Approximate comparisons for IEEE floating point numbers description: