From 3aa07ea334f14df19019947c2eef37b34bae2625 Mon Sep 17 00:00:00 2001
From: "Nikolaos S. Papaspyrou" <nickie@softlab.ntua.gr>
Date: Mon, 31 Oct 2016 14:45:13 +0200
Subject: Add comment

---
 src/Data/Yaml/Extended.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

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
-- 
cgit v1.2.3