diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2017-11-01 14:53:09 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2017-11-01 14:53:09 +0100 |
| commit | 9fbc5e48ea8183dda8fdb652364c0c29f8a309d5 (patch) | |
| tree | 052214454101b44d07918131ad500f0c451649eb /odf/odf_ExpressionParser.mly | |
| parent | ab721136f50914a21f6cca89f0fcfb055ba58cd2 (diff) | |
Made scTypes.types private.
Diffstat (limited to 'odf/odf_ExpressionParser.mly')
| -rwxr-xr-x | odf/odf_ExpressionParser.mly | 5 |
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])} |