aboutsummaryrefslogtreecommitdiff
path: root/odf/odf_ExpressionParser.mly
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@chimrod.com>2017-10-31 16:07:04 +0100
committerSébastien Dailly <sebastien@chimrod.com>2017-10-31 16:07:04 +0100
commitab721136f50914a21f6cca89f0fcfb055ba58cd2 (patch)
tree60f788e3e8733a6d3606e801bc21a24e419e070e /odf/odf_ExpressionParser.mly
parentdb627ca2cfc745bbf2e489251e64054ab2b3bff9 (diff)
parentd8ed0babfa1c03c8f1968443a465972bb3bf460c (diff)
Update ScTypes.types with types used in evaluator
Diffstat (limited to 'odf/odf_ExpressionParser.mly')
-rwxr-xr-xodf/odf_ExpressionParser.mly5
1 files changed, 4 insertions, 1 deletions
diff --git a/odf/odf_ExpressionParser.mly b/odf/odf_ExpressionParser.mly
index 9731699..1b60e1c 100755
--- a/odf/odf_ExpressionParser.mly
+++ b/odf/odf_ExpressionParser.mly
@@ -43,7 +43,10 @@ value:
| LETTERS COLON EQ expr EOF {$4}
expr:
- | num {Value (Num ((snd $1), Some (u(fst $1))))}
+ | num {Value (Num (
+ Number,
+ DataType.Num.of_num @@ snd $1
+ ))}
| MINUS expr {Call (F.sub, [$2])}
| PLUS expr {Call (F.add, [$2])}