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