@@ -9,8 +9,11 @@ import qualified Data.Vector as V
9import Data.Yaml
9import Data.Yaml
11toString :: Value -> Maybe String
11toString :: Value -> Maybe String
12−toString (String t) = Just (T.unpack t)
12+toString (String t) = Just (T.unpack t)
13+toString (Bool True) = Just "true"
14+toString (Bool False) = Just "false"
15+toString (Number d) = Just (show d)
13−toString _ = Nothing
16+toString _ = Nothing
15toList :: Value -> Maybe [Value]
18toList :: Value -> Maybe [Value]
16toList (Array a) = Just (V.toList a)
19toList (Array a) = Just (V.toList a)