@@ -12,7 +12,7 @@ import qualified Data.Attoparsec.Lazy as L
12encodeDouble :: Double -> Double -> Bool
12encodeDouble :: Double -> Double -> Bool
13encodeDouble num denom
13encodeDouble num denom
14 | isInfinite d || isNaN d = encode (Number (D d)) == "null"
14 | 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
16 where d = num / denom
16 where d = num / denom
18encodeInteger :: Integer -> Bool
18encodeInteger :: Integer -> Bool