Bryan O'Sullivan avatar Bryan O'Sullivan committed df0b3ba

Bump version

Comments (0)

Files changed (2)

 name:            aeson
 license:         BSD3
 license-file:    LICENSE
 category:        Text, Web, JSON


-{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}
 import Data.Aeson.Encode
 import Data.Aeson.Parser (value)
 import qualified Data.ByteString.Lazy.Char8 as L
 import qualified Data.Attoparsec.Lazy as L
-encodeDouble d  = encode (Number (D d)) == L.pack (show d)
+encodeDouble num denom
+    | isInfinite d || isNaN d = encode (Number (D d)) == "null"
+    | otherwise               = encode (Number (D d)) == L.pack (show d)
+  where d = num / denom
 encodeInteger i = encode (Number (I i)) == L.pack (show i)
 roundTrip :: (Eq a, FromJSON a, ToJSON a) => a -> Bool
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.