@@ -40,11 +40,7 @@ literals = mkPattern' match
4040 match (CharLiteral c) = return $ show c
4141 match (BooleanLiteral True) = return "true"
4242 match (BooleanLiteral False) = return "false"
43− match (ArrayLiteral xs) = concat <$> sequence
44− [ return "[ "
45− , withIndent $ prettyPrintMany prettyPrintValue' xs
46− , return " ]"
47− ]
43+ match (ArrayLiteral xs) = return $ "[" ++ intercalate ", " (map prettyPrintValue xs) ++ "]"
4844 match (ObjectLiteral ps) = prettyPrintObject' $ second Just `map` ps
4945 match (ObjectConstructor ps) = prettyPrintObject' ps
5046 match (ObjectGetter prop) = return $ "(." ++ prop ++ ")"