1 files changed, 2 insertions, 3 deletions
diff --git a/odf/odf_ExpressionParser.mly b/odf/odf_ExpressionParser.mly
index 1b60e1c..190e6f1 100755
--- a/odf/odf_ExpressionParser.mly
+++ b/odf/odf_ExpressionParser.mly
@@ -43,8 +43,7 @@ value:
   | LETTERS COLON EQ expr EOF {$4}
 
 expr:
-  | num                     {Value (Num (
-        Number, 
+  | num                     {Value (number (
         DataType.Num.of_num @@ snd $1
         ))}
   | MINUS expr              {Call (F.sub, [$2])}
@@ -54,7 +53,7 @@ expr:
   | L_SQ_BRACKET ref R_SQ_BRACKET {$2}
 
   | LPAREN expr RPAREN      {Expression $2}
-  | STR                     {Value (Str (u $1))}
+  | STR                     {Value (string (u $1))}
 
   (* Mathematical operators *)
   | expr MINUS expr         {Call (F.sub, [$1; $3])}