diff options
| -rw-r--r-- | src/Data/Yaml/Extended.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Data/Yaml/Extended.hs b/src/Data/Yaml/Extended.hs index 1600bab..c940ff7 100644 --- a/src/Data/Yaml/Extended.hs +++ b/src/Data/Yaml/Extended.hs @@ -13,6 +13,8 @@ toString :: Value -> Maybe String toString (String t) = Just (T.unpack t) toString (Bool True) = Just "true" toString (Bool False) = Just "false" +-- | Make sure that numeric fields containing integer numbers are shown as +-- | integers (i.e., "42" instead of "42.0"). toString (Number d) | isInteger d = Just (formatScientific Fixed (Just 0) d) | otherwise = Just (show d) toString _ = Nothing |