Simplified the representation of expressions in strings

1 files changed, 2 insertions, 6 deletions

diff --git a/lib/syntax/t.ml b/lib/syntax/t.ml
index 38ad5b0..c50d2e2 100644
--- a/lib/syntax/t.ml
+++ b/lib/syntax/t.ml
@@ -2,14 +2,10 @@
     This module contains the basic operators used in the QSP syntax.
  *)
 
-open StdLabels
-
-type 'a literal = Text of string | Expression of 'a list
+type 'a literal = Text of string | Expression of 'a
 
 let map_litteral : f:('a -> 'b) -> 'a literal -> 'b literal =
- fun ~f -> function
-  | Text t -> Text t
-  | Expression e -> Expression (List.map ~f e)
+ fun ~f -> function Text t -> Text t | Expression e -> Expression (f e)
 
 type boperator =
   | Eq