@@ -13,6 +13,8 @@ toString :: Value -> Maybe String
13toString (String t) = Just (T.unpack t)
13toString (String t) = Just (T.unpack t)
14toString (Bool True) = Just "true"
14toString (Bool True) = Just "true"
15toString (Bool False) = Just "false"
15toString (Bool False) = Just "false"
16+-- | Make sure that numeric fields containing integer numbers are shown as
17+-- | integers (i.e., "42" instead of "42.0").
16toString (Number d) | isInteger d = Just (formatScientific Fixed (Just 0) d)
18toString (Number d) | isInteger d = Just (formatScientific Fixed (Just 0) d)
17 | otherwise = Just (show d)
19 | otherwise = Just (show d)
18toString _ = Nothing
20toString _ = Nothing