Use a better comparison for encoded Double values.
commitadf9cce3123af1bc326a73f8f0907c6ef2d91b71
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 19 Sep 2011, 14:53 (15 years ago)
parentc7a344b
tests/Properties.hs+1−1
@@ -12,7 +12,7 @@ import qualified Data.Attoparsec.Lazy as L
1212encodeDouble :: Double -> Double -> Bool
1313encodeDouble num denom
1414 | isInfinite d || isNaN d = encode (Number (D d)) == "null"
15− | otherwise = encode (Number (D d)) == L.pack (show d)
15+ | otherwise = (read . L.unpack . encode . Number . D) d == d
1616 where d = num / denom
1717
1818encodeInteger :: Integer -> Bool