@@ -52,13 +52,13 @@ literals = mkPattern' match'
52 match (BooleanLiteral _ False) = return $ emit "false"
52 match (BooleanLiteral _ False) = return $ emit "false"
53 -- match (ArrayLiteral _ []) = return $ emit "std::initializer_list<boxed>{}"
53 -- match (ArrayLiteral _ []) = return $ emit "std::initializer_list<boxed>{}"
54 match (ArrayLiteral _ xs) = mconcat <$> sequence
54 match (ArrayLiteral _ xs) = mconcat <$> sequence
55− [ return $ emit "array_t{ {"
55+ [ return $ emit "array_t{"
56 , intercalate (emit ", ") <$> forM xs prettyPrintCpp'
56 , intercalate (emit ", ") <$> forM xs prettyPrintCpp'
57− , return $ emit "} }"
57+ , return $ emit "}"
59 -- match (ObjectLiteral _ []) = return $ emit "std::initializer_list<std::pair<const string, boxed>>{}"
59 -- match (ObjectLiteral _ []) = return $ emit "std::initializer_list<std::pair<const string, boxed>>{}"
60 match (ObjectLiteral _ ps) = mconcat <$> sequence
60 match (ObjectLiteral _ ps) = mconcat <$> sequence
61− [ return $ emit "dict_t{ {\n"
61+ [ return $ emit "dict_t{\n"
62 , withIndent $ do
62 , withIndent $ do
63 cpps <- forM ps $ \(key, value) -> do
63 cpps <- forM ps $ \(key, value) -> do
64 value' <- prettyPrintCpp' value
64 value' <- prettyPrintCpp' value
@@ -67,7 +67,7 @@ literals = mkPattern' match'
67 return $ intercalate (emit ",\n") $ map (indentString <>) cpps
67 return $ intercalate (emit ",\n") $ map (indentString <>) cpps
68 , return $ emit "\n"
68 , return $ emit "\n"
69 , currentIndent
69 , currentIndent
70− , return $ emit "} }"
70+ , return $ emit "}"
73 objectPropertyToString :: (Emit gen) => PSString -> gen
73 objectPropertyToString :: (Emit gen) => PSString -> gen