From 4ec7f0b73f8aa43eccf387bdec55fc464d809896 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Mon, 13 Nov 2023 10:12:42 +0100
Subject: Simplified the representation of expressions in strings

---
 test/literals.ml | 38 ++++++++++++++++++--------------------
 1 file changed, 18 insertions(+), 20 deletions(-)

(limited to 'test/literals.ml')

diff --git a/test/literals.ml b/test/literals.ml
index 6070f86..8f5a56e 100644
--- a/test/literals.ml
+++ b/test/literals.ml
@@ -13,7 +13,7 @@ let result =
       (Tree.Ast.Literal
          ( _position,
            [
-             T.Expression [ Tree.Ast.Literal (_position, [ T.Text "key" ]) ];
+             T.Expression (Tree.Ast.Literal (_position, [ T.Text "key" ]));
              T.Text "";
            ] ));
   ]
@@ -71,25 +71,23 @@ let expression () =
            ( _position,
              [
                T.Expression
-                 [
-                   Tree.Ast.Function
-                     ( _position,
-                       T.Iif,
-                       [
-                         Tree.Ast.BinaryOp
-                           ( _position,
-                             T.Eq,
-                             Tree.Ast.Ident
-                               {
-                                 Tree.Ast.pos = _position;
-                                 name = "VAR";
-                                 index = None;
-                               },
-                             Tree.Ast.Integer (_position, "0") );
-                         Tree.Ast.Integer (_position, "1");
-                         Tree.Ast.Integer (_position, "0");
-                       ] );
-                 ];
+                 (Tree.Ast.Function
+                    ( _position,
+                      T.Iif,
+                      [
+                        Tree.Ast.BinaryOp
+                          ( _position,
+                            T.Eq,
+                            Tree.Ast.Ident
+                              {
+                                Tree.Ast.pos = _position;
+                                name = "VAR";
+                                index = None;
+                              },
+                            Tree.Ast.Integer (_position, "0") );
+                        Tree.Ast.Integer (_position, "1");
+                        Tree.Ast.Integer (_position, "0");
+                      ] ));
                T.Text "";
              ] ));
     ]
-- 
cgit v1.2.3