diff options
Diffstat (limited to 'src/Data/Yaml')
-rw-r--r-- | src/Data/Yaml/Extended.hs | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/Data/Yaml/Extended.hs b/src/Data/Yaml/Extended.hs deleted file mode 100644 index c940ff7..0000000 --- a/src/Data/Yaml/Extended.hs +++ /dev/null @@ -1,24 +0,0 @@ -module Data.Yaml.Extended - ( module Data.Yaml - , toString - , toList - ) where - -import qualified Data.Text as T -import qualified Data.Vector as V -import Data.Yaml -import Data.Scientific - -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 - -toList :: Value -> Maybe [Value] -toList (Array a) = Just (V.toList a) -toList _ = Nothing |