diff options
author | Nikolaos S. Papaspyrou <nickie@softlab.ntua.gr> | 2016-10-31 14:45:13 +0200 |
---|---|---|
committer | Nikolaos S. Papaspyrou <nickie@softlab.ntua.gr> | 2016-10-31 14:45:13 +0200 |
commit | 3aa07ea334f14df19019947c2eef37b34bae2625 (patch) | |
tree | 53862fd0dd94f80f2d976efb02716a322185d0e6 /src | |
parent | 6fbffc586cd951180c5a4ed328bd43a1f3920a85 (diff) | |
download | hakyll-3aa07ea334f14df19019947c2eef37b34bae2625.tar.gz |
Add comment
Diffstat (limited to 'src')
-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 |