@@ -135,7 +135,7 @@ jsonToYaml (String "") = empty
135jsonToYaml (String s) =
135jsonToYaml (String s) =
136 case T.unpack s of
136 case T.unpack s of
137 x | '\n' `elem` x -> hang 2 ("|" <> cr) $ text x
137 x | '\n' `elem` x -> hang 2 ("|" <> cr) $ text x
138− | not (any (`elem` x) "\"'#:[]{},?-") -> text x
138+ | not (any (`elem` x) "\"'#:[]{}?-") -> text x
139 | otherwise -> text $ "'" ++ substitute "'" "''" x ++ "'"
139 | otherwise -> text $ "'" ++ substitute "'" "''" x ++ "'"
140jsonToYaml (Bool b) = text $ show b
140jsonToYaml (Bool b) = text $ show b
141jsonToYaml (Number n) = text $ show n
141jsonToYaml (Number n) = text $ show n