@@ -13,6 +13,8 @@ toString :: Value -> Maybe String
1313toString (String t) = Just (T.unpack t)
1414toString (Bool True) = Just "true"
1515toString (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").
1618toString (Number d) | isInteger d = Just (formatScientific Fixed (Just 0) d)
1719 | otherwise = Just (show d)
1820toString _ = Nothing